%I A100026
%S A100026 0,3,3,3,5,8,323,5,8,212,3,161,8,3,242,3,8,10901,737,161,242,333,282,6,
%T A100026 252,474,5,12921,8,131,18381,6,444,6,797,606,717,15351,464,333,626,545,
%U A100026 13031,161,747,191,323,636,32523,303,282,888,686,18981,111,15951,12021
%N A100026 Consider all (2n+1)-digit palindromic primes of the form 10...0M0...01 
               (so that M is a palindrome with <= 2n-1 digits); a(n) = smallest 
               such M.
%t A100026 f[n_] := Block[{k = 0, t = Flatten[Join[{1}, Table[0, {n - 1}]]]}, While[s 
               = Drop[t, Min[ -Floor[ Log[10, k]/2], 0]]; k != FromDigits[ Reverse[ 
               IntegerDigits[k]]] || !PrimeQ[ FromDigits[ Join[s, IntegerDigits[k], 
               Reverse[s]]]], k++ ]; k]; Table[ f[n], {n, 56}] (from Robert G. Wilson 
               v Nov 22 2004)
%Y A100026 The corresponding palindromic primes are shown in A100027.
%Y A100026 Cf. A099744, A099746, A100028.
%Y A100026 Sequence in context: A117900 A122519 A141695 this_sequence A100049 A158315 
               A134059
%Y A100026 Adjacent sequences: A100023 A100024 A100025 this_sequence A100027 A100028 
               A100029
%K A100026 nonn,base
%O A100026 1,2
%A A100026 Harvey Dubner (harvey(AT)dubner.com), Nov 20 2004
%E A100026 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 22 2004