OFFSET
1,1
COMMENTS
Differs from A071361 from a(7) on. - M. F. Hasler, May 03 2017
REFERENCES
J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 9871, p.194, Ellipses, Paris 2008.
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