|
|
A085451
|
|
Numbers n such that n and prime[n] together use only distinct digits.
|
|
3
|
|
|
1, 2, 3, 4, 6, 8, 9, 10, 12, 15, 16, 17, 19, 20, 21, 24, 25, 27, 28, 35, 39, 40, 45, 53, 57, 58, 60, 61, 69, 70, 72, 79, 85, 89, 90, 91, 93, 96, 98, 104, 108, 120, 124, 145, 146, 147, 150, 162, 236, 237, 253, 254, 259, 315, 316, 359, 380, 384, 390, 405, 406, 460, 461, 518
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
There are exactly 101 such numbers in the sequence. Numbers with distinct digits in A010784. Primes with distinct digits in A029743. The case n and n^2 (exactly 22 numbers) in A059930.
|
|
LINKS
|
|
|
EXAMPLE
|
3106 is in the sequence (and the last term) because it and prime[3106]=28549 together use all 10 distinct digits.
|
|
MATHEMATICA
|
bb = {}; Do[idpn = IntegerDigits[Prime[n]]; idn = IntegerDigits[n]; If[Length[idn] + Length[idpn] == Length[Union[idn, idpn]], bb = {bb, n}], {n, 1, 100000}]; Flatten[bb]
|
|
CROSSREFS
|
|
|
KEYWORD
|
fini,full,nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|