login
A081220
Palindromic primes = 1 mod 4.
3
5, 101, 181, 313, 353, 373, 757, 797, 929, 10301, 10501, 10601, 12421, 12721, 12821, 14341, 14741, 16061, 16361, 16561, 16661, 18181, 18481, 31013, 31513, 33533, 35053, 35153, 35353, 35753, 37273, 37573, 39293, 71317, 71917, 73037, 73237
OFFSET
1,1
COMMENTS
Intersection of A002385 and A002144.
LINKS
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
Sequence in context: A090436 A140616 A087456 * A210362 A041187 A266235
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Apr 18 2003, corrected Sep 28 2006
EXTENSIONS
Corrected by Harvey P. Dale, Oct 15 2006
STATUS
approved