OFFSET
1,3
MATHEMATICA
T[n_] := n*(n + 1)/2; tQ[n_] := IntegerQ[Sqrt[8n + 1]]; f2[n_] := Block[{id = IntegerDigits[n]}, If[Length[id] < 3, Return[True]]; tQ[FromDigits[{First[id], Last[id]}]]]; Select[Array[T, 160, 0], f2] (* Ray Chandler, Feb 28 2007 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 06 2002
EXTENSIONS
Extended by Ray Chandler, Feb 28 2007
STATUS
approved