[go: up one dir, main page]

login
A099746
Primes arising in A099744.
2
10301, 10501, 10601, 1022201, 1028201, 1035301, 1043401, 1055501, 1062601, 1065601, 1074701, 1082801, 1085801, 1092901, 1093901, 101030101, 101060101, 101141101, 101171101, 101282101, 101292101, 101343101, 101373101, 101414101
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