login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A321683
Numbers with distinct digits in primorial base.
3
0, 1, 2, 4, 5, 10, 13, 14, 19, 20, 22, 23, 25, 26, 28, 29, 52, 58, 79, 80, 85, 86, 95, 100, 103, 104, 115, 116, 118, 119, 125, 130, 133, 134, 139, 140, 142, 143, 155, 160, 163, 164, 169, 170, 172, 173, 175, 176, 178, 179, 185, 190, 193, 194, 199, 200, 202, 203
OFFSET
1,3
COMMENTS
This sequence is a variant of A010784 (numbers with distinct digits in decimal). The final term of that sequence is 9876543210. This sequence, by contrast, has infinitely many terms (for example, all the terms of A057588 belong to this sequence).
EXAMPLE
13 in primorial base is 201, which has no repeated digits, hence 13 is in the sequence.
14 in primorial base is 210, which has no repeated digits, hence 14 is also in the sequence.
15 in primorial base is 211, so 15 is not in the sequence on account of the digit 1 appearing twice in its primorial base representation.
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]]; UnsameQ @@ s]; Select[Range[0, 210], q] (* Amiram Eldar, Mar 13 2024 *)
PROG
(PARI) is(n) = my (s=0); forprime (p=2, oo, if (n==0, return (1)); my (d=n%p); if (bittest(s, d), return (0), s+=2^d; n\=p))
CROSSREFS
See A321682 for the factorial base variant.
Sequence in context: A128215 A325676 A097132 * A321682 A013578 A283204
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, Nov 17 2018
STATUS
approved