A099746 - OEIS

%I #6 Mar 28 2015 21:58:52

%S 10301,10501,10601,1022201,1028201,1035301,1043401,1055501,1062601,

%T 1065601,1074701,1082801,1085801,1092901,1093901,101030101,101060101,

%U 101141101,101171101,101282101,101292101,101343101,101373101,101414101

%N Primes arising in A099744.

%C Prompted by Harvey Dubner's Nov 07 2004 discovery that 10000...000M000...00001 with M=3761673, a palindrome, is a 130023-digit palindromic prime.

%t 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 *)

%Y Cf. A099744, A100026, A100027.

%K nonn,easy,base

%O 1,1

%A _N. J. A. Sloane_, Nov 19 2004

%E More terms from _Robert G. Wilson v_, Nov 20 2004