|
Search: id:A099746
|
|
| |
|
| 10301, 10501, 10601, 1022201, 1028201, 1035301, 1043401, 1055501, 1062601, 1065601, 1074701, 1082801, 1085801, 1092901, 1093901, 101030101, 101060101, 101141101, 101171101, 101282101, 101292101, 101343101, 101373101, 101414101
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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}]; (from Robert G. Wilson v Nov 20 2004)
|
|
CROSSREFS
|
Cf. A099744, A100026, A100027.
Sequence in context: A074671 A109176 A100502 this_sequence A083438 A097695 A031803
Adjacent sequences: A099743 A099744 A099745 this_sequence A099747 A099748 A099749
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
njas, Nov 19 2004
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 20 2004
|
|
|
Search completed in 0.002 seconds
|
