A328766 - OEIS

A328766

Number of nonleading zeros in primorial base expansion of A276086(n).

0, 1, 0, 2, 0, 2, 0, 1, 0, 3, 0, 3, 1, 1, 0, 3, 1, 3, 1, 1, 0, 3, 0, 3, 1, 1, 0, 3, 0, 3, 1, 1, 0, 2, 1, 2, 1, 1, 0, 4, 0, 4, 1, 1, 0, 4, 0, 4, 1, 1, 0, 4, 0, 4, 1, 1, 0, 4, 1, 4, 1, 1, 0, 2, 1, 2, 1, 1, 0, 4, 0, 4, 1, 2, 0, 4, 0, 4, 1, 1, 0, 4, 0, 4, 2, 2, 1, 4, 0, 4, 1, 1, 0, 2, 0, 2, 1, 1, 0, 4, 0, 5, 1, 1, 0, 4

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

OFFSET

0,4

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..32768

Index entries for sequences related to primorial base

FORMULA

a(n) = A328620(A276086(n)) = A079067(A276087(n)).

a(n) = A001221(A328763(n)) - 1.

For all n >= 1, a(A143293(n-1)) = n. [Note however that these are not the first occurrences of each n, that is, A143293 does not give the indices of records]

PROG

(PARI)

A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };

A328620(n) = { my(s=0, p=2); while(n, s += (0==(n%p)); n = n\p; p = nextprime(1+p)); (s); };

A328766(n) = A328620(A276086(n));

CROSSREFS

Cf. A079067, A143293, A276086, A276087, A328620, A328763.

Cf. also A328578.

Sequence in context: A095414 A339012 A357984 * A219203 A341981 A356915

Adjacent sequences: A328763 A328764 A328765 * A328767 A328768 A328769

KEYWORD

nonn

AUTHOR

Antti Karttunen, Oct 28 2019

STATUS

approved