%I #17 Mar 06 2024 01:01:53
%S 0,4,12,16,18,22,24,28,60,64,72,76,78,82,84,88,90,94,102,106,108,112,
%T 114,118,120,124,132,136,138,142,144,148,150,154,162,166,168,172,174,
%U 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
%N Numbers with no digit 1 in their primorial base expansion (A049345).
%C Numbers for which the least missing nonzero digit (A329028) in their primorial base expansion is 1.
%H Antti Karttunen, <a href="/A328840/b328840.txt">Table of n, a(n) for n = 1..92160</a>
%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>.
%t 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 *)
%o (PARI)
%o 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))); };
%o isA328840(n) = (1 == A329028(n));
%Y Cf. A049345.
%Y Positions of ones in A329028.
%Y Cf. also A328574 and A329027.
%Y Cf. A255411 for an analogous sequence.
%K nonn,base
%O 1,2
%A _Antti Karttunen_, Nov 07 2019
|