OFFSET
1,2
COMMENTS
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..101 (full sequence)
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
Zak Seidov, Jul 01 2003
STATUS
approved