OFFSET
1,1
FORMULA
a(n) ~ n log n. - Charles R Greathouse IV, Jan 02 2013
MATHEMATICA
Select[Prime[Range[100]], Max[IntegerDigits[ # ]]>2&]
PROG
(PARI) is(p)=vecsort(digits(p), , 12)[1]>2 && isprime(p) \\ Charles R Greathouse IV, Jan 02 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 07 2005
STATUS
approved