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

Offset

1,1

Comments

Intersection of A002385 and A002144.

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

Cf. A002385, A002144.

Sequence in context: A090436 A140616 A087456 * A210362 A041187 A266235

Adjacent sequences: A081217 A081218 A081219 * A081221 A081222 A081223

Keyword

nonn,base

Author

Lekraj Beedassy, Apr 18 2003, corrected Sep 28 2006

Extensions

Corrected by Harvey P. Dale, Oct 15 2006

Status

approved