OFFSET
1,1
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000 (terms 1..1000 from T. D. Noe)
MATHEMATICA
Select[Prime[Range[500]], And@@OddQ[IntegerDigits[#]]&] (* Harvey P. Dale, Jan 28 2013 *)
PROG
(Haskell)
a030096 n = a030096_list !! (n-1)
a030096_list = filter f a000040_list where
f x = odd d && (x < 10 || f x') where (x', d) = divMod x 10
-- Reinhard Zumkeller, Apr 07 2014, Jan 29 2013
(PARI) is(n)=isprime(n) && #setintersect([0, 2, 4, 6, 8], Set(digits(n)))==0 \\ Charles R Greathouse IV, Feb 07 2017
(Magma) [p: p in PrimesUpTo(1000) | forall{d: d in [0, 2, 4, 6, 8] | d notin Set(Intseq(p))}]; // Vincenzo Librandi, Apr 29 2019
CROSSREFS
KEYWORD
nonn,base,nice
AUTHOR
EXTENSIONS
STATUS
approved