OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
sdoQ[n_]:=OddQ[Min[IntegerDigits[n]]]; Select[Prime[Range[200]], sdoQ[#] && sdoQ[ Prime[ #]]&] (* Harvey P. Dale, Mar 21 2013 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jan 16 2009
EXTENSIONS
Keyword:base added and sequence extended by R. J. Mathar, Mar 29 2010
STATUS
approved