|
|
A070954
|
|
Emirps which when concatenated with their reversals after a 0 make a palindromic prime of the form emirp0prime.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|