|
|
A050288
|
|
Pandigital primes.
|
|
29
|
|
|
10123457689, 10123465789, 10123465897, 10123485679, 10123485769, 10123496857, 10123547869, 10123548679, 10123568947, 10123578649, 10123586947, 10123598467, 10123654789, 10123684759, 10123685749
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Digits may appear multiple times; density n/log n (almost all primes are pandigital).
Note that actually a(n) is much larger than n*log(n) (see Formula section). Even for n = 10000, a(n) = 111571*n*log(n). - Zak Seidov, Jul 27 2014
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
ta={{0}}; Do[u=Union[IntegerDigits[n]]; If[Equal[u, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}]&&PrimeQ[n], ta=Append[ta, n]], {n, 10123456789, 20000000000}]; ta (Labos)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|