OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Select[FromDigits/@Tuples[{1, 3, 5, 7, 9}, n], PrimeQ[#]&& # == IntegerReverse[ #]&], {n, 7}]//Flatten (* Harvey P. Dale, Sep 17 2016 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Apr 13 2009
EXTENSIONS
Entries checked by R. J. Mathar, May 21 2010
STATUS
approved