|
%I #17 May 21 2022 19:41:22
%S 153,351,17578,87571,185745,547581,1461195,5911641,12145056,12517506,
%T 60571521,65054121,304119453,354911403,1775275491,1945725771,
%U 10246462281,17990863516,18226464201,35615002605,50620051653,61536809971,1222080857271,1664224065406
%N Non-palindromic triangular numbers whose reverse is a triangular number with the same number of digits.
%H Giovanni Resta, <a href="/A066528/b066528.txt">Table of n, a(n) for n = 1..64</a> (terms < 2*10^24)
%e 153 and 351 are both triangular.
%t 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[tt=dtn[Reverse[IntegerDigits[t]]]]&&Mod[t, 10]>0&&t=!=tt, AppendTo[A, t]; Print[A]]]
%Y See A069673 for another version.
%Y Cf. A066703, A179889.
%Y Cf. A003098, A061455, A066569, A069673.
%K base,nonn
%O 1,1
%A _Erich Friedman_, Jan 08 2002
%E a(22)-a(24) from _Giovanni Resta_, Jun 20 2015
|
