OFFSET
1,1
COMMENTS
Prompted by Harvey Dubner's Nov 07 2004 discovery that 10000...000M000...00001 with M=3761673, a palindrome, is a 130023-digit palindromic prime.
MATHEMATICA
p = Select[ Range[ 22322], # == FromDigits[ Reverse[ IntegerDigits[ # ]]] &]; q = Select[p, PrimeQ[ FromDigits[ Join[{1, 0}, IntegerDigits[ # ], {0, 1}]]] &]; Table[ FromDigits[ Join[{1, 0}, IntegerDigits[ q[[n]]], {0, 1}]], {n, 24}]; (* Robert G. Wilson v, Nov 20 2004 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
N. J. A. Sloane, Nov 19 2004
EXTENSIONS
More terms from Robert G. Wilson v, Nov 20 2004
STATUS
approved