|
|
A007810
|
|
Largest prime with n distinct decimal digits.
|
|
11
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
REFERENCES
|
J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 9871, p.194, Ellipses, Paris 2008.
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[Module[{k=NextPrime[10^n-1, -1]}, While[Max[DigitCount[k]]>1, k = NextPrime[ k, -1]]; k], {n, 9}] (* Harvey P. Dale, Sep 16 2019 *)
|
|
PROG
|
(PARI) A007810(n, p=sum(k=1, n, (9+k-n)*10^k)/10)={until(#Set(digits(p--))==n&&isprime(p), ); p} \\ M. F. Hasler, May 03 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,fini,base,full
|
|
AUTHOR
|
N. B. Backhouse (sx52(AT)liverpool.ac.uk)
|
|
STATUS
|
approved
|
|
|
|