%I A066618
%S A066618 1,2,5,101,626,5477,7745,10001,1000001,1010026,1040401,2217122,2676497,
%T A066618 5053505,6200101,7946762,100000001,101808101,10000000001,10180608202,
%U A066618 10182828101,10408080401,20280608101,26573890226,26995147205
%N A066618 Both n and its reverse are one more than a square and n does not end 
               in 0.
%e A066618 7745 = 88^2 + 1 and 5477 = 74^2 + 1
%t A066618 dtn[L_] := Fold[10#1+#2&, 0, L] A={}; For[i=1, i>0, i++, t=dtn[Reverse[IntegerDigits[i^2+1]]]; 
               If[IntegerQ[(t-1)^(1/2)]&&Mod[i^2, 10]=!=9, AppendTo[A, i^2+1]; Print[A]]]
%Y A066618 Sequence in context: A093308 A162569 A120800 this_sequence A027720 A132482 
               A136106
%Y A066618 Adjacent sequences: A066615 A066616 A066617 this_sequence A066619 A066620 
               A066621
%K A066618 base,nonn
%O A066618 1,2
%A A066618 Erich Friedman (efriedma(AT)stetson.edu), Jan 08 2002