STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Numbers n for which the least missing nonzero digit (A329028) in their primorial base expansion is 1.
<a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>.
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 *)
approved
editing
proposed
approved
editing
proposed
nonn,base,changed
Numbers n for which the least missing nonzero digit (A329028) in the their primorial base expansion is 1.