%I A099744
%S A099744 3,5,6,222,282,353,434,555,626,656,747,828,858,929,939,10301,10601,
%T A099744 11411,11711,12821,12921,13431,13731,14141,14241,14741,15951,16161,
%U A099744 17171,17771,18381,18981,19191,19491,19991,20402,20702,22022,22322
%N A099744 Palindromes n such that 10n01 is a prime.
%p A099744 read transforms; pal:=[]; for n from 0 to 8000 do if digrev(n) = n then 
               pal:=[op(pal),n]; fi; od:
%p A099744 t0:=[]; u0:=[]; for n from 1 to nops(pal) do m:=pal[n]; p0:="10"; p1:="01"; 
               t1:=cat(p0,m,p1); t1:=convert(t1,decimal,10); if isprime(t1) then 
               t0:=[op(t0),m]; u0:=[op(u0),t1]; fi; od: t0; # u0 gives A099746.
%t A099744 p = Select[ Range[ 22322], # == FromDigits[ Reverse[ IntegerDigits[ # 
               ]]] &]; Select[p, PrimeQ[ FromDigits[ Join[{1, 0}, IntegerDigits[ 
               # ], {0, 1}]]] &] (from Robert G. Wilson v Nov 20 2004)
%Y A099744 Cf. A002113, A099746, A032672, A099720, A100026, A100027.
%Y A099744 Sequence in context: A086189 A137082 A099414 this_sequence A024601 A085090 
               A084713
%Y A099744 Adjacent sequences: A099741 A099742 A099743 this_sequence A099745 A099746 
               A099747
%K A099744 nonn,easy,base
%O A099744 1,1
%A A099744 N. J. A. Sloane (njas(AT)research.att.com), Nov 19 2004
%E A099744 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 19 2004