OFFSET
1,1
EXAMPLE
T(423) + 324 = 300^2.
MATHEMATICA
testQ[n_] := IntegerQ[Sqrt[n(n+1)/2 + FromDigits@Reverse@IntegerDigits@n]]; lst = Select[Range[10^5], testQ]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Giovanni Resta, Jan 22 2006
STATUS
approved