OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Prime[Range[200]], Max[IntegerDigits[ # ]]==9&]
PROG
(Magma) [p: p in PrimesUpTo(2000) | 9 in Intseq(p)]; // Vincenzo Librandi, Nov 22 2015
(PARI) forprime(p=2, 1e3, if(vecmax(digits(p)) == 9, print1(p, ", "))) \\ Altug Alkan, Nov 22 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov and Robert G. Wilson v, May 07 2005
STATUS
approved