A081220 Palindromic primes = 1 mod 4.

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, 73637, 75557, 77377

Offset: 1

Author

Lekraj Beedassy, Apr 18 2003, corrected Sep 28 2006

Keywords

• nonn
• base

Comments

Intersection of A002385 and A002144.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1500

Crossrefs

Cf. A002385, A002144.

Programs

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 *)

Extensions

Corrected by Harvey P. Dale, Oct 15 2006