%I A066619
%S A066619 0,3,8,99,323,575,4224,5775,9999,36863,42024,999999,3055503,3640463,
%T A066619 5597955,8803088,32855823,99999999,360696063,422919224,4227990528,
%U A066619 8250997224,9999999999,30485858403,30536863503,32154945123
%N A066619 Both n and its reverse are one less than a square.
%e A066619 4227990528 = 65023^2 - 1 and 8250997224 = 90835^2 - 1
%t A066619 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]=!=1, AppendTo[A, i^2-1]; Print[A]]]
%Y A066619 Sequence in context: A069703 A114737 A099296 this_sequence A028504 A123279 
               A134803
%Y A066619 Adjacent sequences: A066616 A066617 A066618 this_sequence A066620 A066621 
               A066622
%K A066619 base,nonn
%O A066619 0,2
%A A066619 Erich Friedman (efriedma(AT)stetson.edu), Jan 08 2002
%E A066619 More terms from Christopher Lund (clund(AT)san.rr.com), Apr 14 2002