OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1500
MATHEMATICA
Select[Select[Prime[Range[10000]], # == FromDigits[Reverse[IntegerDigits[ # ]]] &], Mod[ #, 4] == 1 &] - Harvey P. Dale, Oct 15 2006
Select[Prime[Range[7500]], #==IntegerReverse[#]&&Mod[#, 4]==1&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 18 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Apr 18 2003, corrected Sep 28 2006
EXTENSIONS
Corrected by Harvey P. Dale, Oct 15 2006
STATUS
approved