OFFSET
1,1
COMMENTS
Subsequence of primes of A102489. - Michel Marcus, Mar 05 2016
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[400]], Max[IntegerDigits[#, 16]] < 10 & ] (* Zak Seidov, Mar 04 2016 *)
PROG
(PARI) isok(n) = isprime(n) && (vecmax(digits(n, 16)) < 10); \\ Michel Marcus, Mar 05 2016
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Cino Hilliard, Jan 18 2004
EXTENSIONS
Better definition from Omar E. Pol, Dec 24 2008
STATUS
approved