A276157 - OEIS

A276157

a(n) = {greatest primorial less than or equal to n} divided by {greatest primorial number which divides n} = A260188(n)/A053589(n).

1, 1, 2, 1, 2, 1, 6, 3, 6, 3, 6, 1, 6, 3, 6, 3, 6, 1, 6, 3, 6, 3, 6, 1, 6, 3, 6, 3, 6, 1, 30, 15, 30, 15, 30, 5, 30, 15, 30, 15, 30, 5, 30, 15, 30, 15, 30, 5, 30, 15, 30, 15, 30, 5, 30, 15, 30, 15, 30, 1, 30, 15, 30, 15, 30, 5, 30, 15, 30, 15, 30, 5, 30, 15, 30, 15, 30, 5, 30, 15, 30

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..11550

Index entries for sequences related to primorial numbers

FORMULA

a(n) = A260188(n)/A053589(n).

MATHEMATICA

Table[(j = #; While[! Divisible[n, Times @@ Prime@ Range@ j], j--]; (Times @@ Prime@ Range@ #)/(Times @@ Prime@ Range@ j)) &@ (k = 0; While[Times @@ Prime@ Range[k + 1] <= n, k++]; k), {n, 120}] (* Michael De Vlieger, Aug 30 2016 *)

PROG

(Scheme) (define (A276157 n) (/ (A260188 n) (A053589 n)))

CROSSREFS

Cf. A002110, A053589, A260188.

Cf. A060735 (positions of ones).

Sequence in context: A163820 A284465 A327899 * A169593 A057568 A220587

Adjacent sequences: A276154 A276155 A276156 * A276158 A276159 A276160

KEYWORD

nonn

AUTHOR

Antti Karttunen, Aug 30 2016

STATUS

approved