|
| |
|
|
A085451
|
|
Numbers n such that n and prime[n] together use only distinct digits.
|
|
2
| |
|
|
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; 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.
A178788(A045532(a(n))) = 1. [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jun 30 2010]
|
|
|
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
| Cf. A010784 A029743 A059930 A085452.
Sequence in context: A196277 A143896 A160719 * A064150 A196149 A067023
Adjacent sequences: A085448 A085449 A085450 * A085452 A085453 A085454
|
|
|
KEYWORD
| fini,nonn,base
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Jul 01 2003
|
| |
|
|
