A329030 The least missing nonzero digit in the primorial base expansion of A276086(n).

2, 2, 2, 2, 2, 1, 3, 3, 3, 2, 3, 1, 2, 2, 3, 1, 3, 3, 3, 3, 3, 1, 3, 1, 3, 2, 3, 2, 3, 1, 2, 3, 2, 3, 3, 2, 3, 3, 4, 2, 4, 1, 2, 2, 4, 1, 4, 2, 3, 3, 4, 1, 5, 1, 2, 2, 4, 1, 5, 3, 2, 2, 2, 3, 4, 3, 3, 3, 4, 1, 4, 2, 2, 2, 4, 1, 5, 1, 3, 4, 4, 3, 4, 1, 3, 6, 4, 2, 4, 2, 3, 2, 2, 1, 2, 1, 3, 3, 4, 1, 4, 2, 2, 2, 4, 2

Offset

0,1

Links

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

Index entries for sequences related to primorial base

Formula

a(n) = A329028(A276086(n)) = A134193(A276087(n)) .

Prog

(PARI)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A329028(n) = { my(m=Map(), p=2); while(n, mapput(m, (n%p), 1); n = n\p; p = nextprime(1+p)); for(k=1, oo, if(!mapisdefined(m, k), return(k))); };
A329030(n) = A329028(A276086(n));

Crossrefs

Cf. A134193, A276086, A276087, A329028.

Sequence in context: A326702 A133563 A104518 * A027388 A114295 A004216

Adjacent sequences: A329027 A329028 A329029 * A329031 A329032 A329033

Keyword

nonn

Author

Antti Karttunen, Nov 07 2019

Status

approved