A070954 Emirps which when concatenated with their reversals after a 0 make a palindromic prime of the form emirp0prime.

31, 73, 149, 167, 347, 359, 769, 967, 1033, 1069, 1091, 1109, 1279, 1487, 1499, 1601, 1879, 1901, 1933, 3023, 3049, 3301, 3347, 3407, 3541, 3583, 3803, 3851, 3889, 7507, 7589, 7643, 7717, 7949, 9041, 9127, 9341, 9439, 9613, 9871, 10177, 10321, 10333

Offset: 1

Author

Lekraj Beedassy, May 16 2002

Keywords

• base
• nonn

Examples

			Emirp 359, for instance, generates the palprime 3590953.
		

Crossrefs

Cf. A006567 and A054217.

Programs

Mathematica

Do[d = IntegerDigits[ Prime[n]]; If[ PrimeQ[ FromDigits[ Reverse[d]]] && PrimeQ[ FromDigits[ Join[d, {0}, Reverse[d]]]], Print[ Prime[n]]], {n, 1, 10^3}]

Extensions

Corrected and extended by Robert G. Wilson v and Jason Earls, May 20 2002