%I A066569
%S A066569 1,3,6,55,66,153,171,351,595,666,3003,5995,8778,15051,17578,66066,
%T A066569 87571,185745,547581,617716,828828,1269621,1461195,1680861,3544453,
%U A066569 5073705,5676765,5911641,6295926,12145056,12517506,35133153,60571521
%N A066569 Triangular numbers whose reverse is also triangular.
%e A066569 153 and 351 are both triangular
%t A066569 dtn[L_] := Fold[10#1+#2&, 0, L] tritest[n_] := Module[{t}, t=Floor[N[Sqrt[2n]]]; 
               2n==t(t+1)] A={}; For[i=1, i>0, i++, t=i(i+1)/2; If[tritest[dtn[Reverse[IntegerDigits[t]]]]&&Mod[t, 
               10]>0, AppendTo[A, t]; Print[A]]]
%Y A066569 Sequence in context: A023177 A132474 A032070 this_sequence A051641 A003098 
               A045914
%Y A066569 Adjacent sequences: A066566 A066567 A066568 this_sequence A066570 A066571 
               A066572
%K A066569 base,nonn
%O A066569 0,2
%A A066569 Erich Friedman (efriedma(AT)stetson.edu), Jan 08 2002