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,1

Links

Table of n, a(n) for n=1..43.

Example

Emirp 359, for instance, generates the palprime 3590953.

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}]

Crossrefs

Cf. A006567 and A054217.

Sequence in context: A291554 A084655 A083988 * A141892 A298613 A155933

Adjacent sequences: A070951 A070952 A070953 * A070955 A070956 A070957

Keyword

base,nonn

Author

Lekraj Beedassy, May 16 2002

Extensions

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

Status

approved