|
|
A343477
|
|
Numbers k whose representations in primorial base include each of the digits from 0 to d-1 exactly once, where d is the number of digits of k in primorial base.
|
|
2
|
|
|
0, 2, 10, 13, 14, 52, 79, 80, 95, 100, 103, 104, 328, 352, 535, 536, 559, 560, 659, 688, 715, 716, 755, 760, 763, 764, 863, 892, 919, 920, 935, 940, 943, 944, 3118, 3322, 3478, 3502, 5425, 5426, 5629, 5630, 5785, 5786, 5809, 5810, 7109, 7318, 7525, 7526, 7925
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
2 is a term since its primorial base representation is {1, 0}.
10, 13 and 14 are terms since their primorial base representations are {1, 2, 0}, {2, 0, 1} and {2, 1, 0}, respectively.
|
|
MATHEMATICA
|
m = 6; bases = Reverse @ Prime @ Range[m]; max = Times @@ bases; primBase[n_] := IntegerDigits[n, MixedRadix[bases]]; q[n_] := Union[(pd = primBase[n])] == Range[0, Length[pd] - 1]; Select[Range[0, max], q]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|