OFFSET
1,2
COMMENTS
Natural density 0.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..3000
MATHEMATICA
lseQ[n_]:=Module[{idp=IntegerDigits[Prime[n]]}, AllTrue[{Max[ idp], Min[ idp]}, EvenQ]]; Select[Range[1000], lseQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 18 2018 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jan 15 2009, May 13 2010
EXTENSIONS
Corrected by Harvey P. Dale, Oct 18 2018
STATUS
approved