1,1
T(423)+324=300^2.
testQ[n_] := IntegerQ[Sqrt[n(n+1)/2 + FromDigits@Reverse@IntegerDigits@n]]; lst = Select[Range[10^5], testQ]
Sequence in context: A189216 A158301 A105758 * A072682 A158207 A153448
Adjacent sequences: A113796 A113797 A113798 * A113800 A113801 A113802
base,nonn
Giovanni Resta (g.resta(AT)iit.cnr.it), Jan 22 2006