A328840 Numbers with no digit 1 in their primorial base expansion (A049345).

0, 4, 12, 16, 18, 22, 24, 28, 60, 64, 72, 76, 78, 82, 84, 88, 90, 94, 102, 106, 108, 112, 114, 118, 120, 124, 132, 136, 138, 142, 144, 148, 150, 154, 162, 166, 168, 172, 174, 178, 180, 184, 192, 196, 198, 202, 204, 208, 420, 424, 432, 436, 438, 442, 444, 448, 480, 484, 492, 496, 498, 502, 504, 508, 510, 514, 522, 526

Offset: 1

Author

Antti Karttunen, Nov 07 2019

Keywords

• nonn
• base

Comments

Numbers for which the least missing nonzero digit (A329028) in their primorial base expansion is 1.

Links

• Antti Karttunen, Table of n, a(n) for n = 1..92160
• Index entries for sequences related to primorial base.

Crossrefs

Cf. A049345.

Positions of ones in A329028.

Cf. also A328574 and A329027.

Cf. A255411 for an analogous sequence.

Programs

Mathematica

q[n_] := Module[{k = n, p = 2, s = {}, r}, While[{k, r} = QuotientRemainder[k, p]; k != 0 || r != 0, AppendTo[s, r]; p = NextPrime[p]]; FreeQ[s, 1]]; Select[Range[0, 600], q] (* Amiram Eldar, Mar 06 2024 *)

PARI

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))); };
isA328840(n) = (1 == A329028(n));