OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MATHEMATICA
tri = 0; Table[tri = tri + n; {p, e} = Transpose[FactorInteger[tri]]; e = Quotient[(e + 1), 2]; Times @@ (p^(2 e)), {n, 100}] (* T. D. Noe, Aug 01 2011 *)
ssq[n_]:=With[{c=n*Range[1000]}, Select[c, IntegerQ[Sqrt[#]]&, 1]]; Flatten[ ssq/@Accumulate[Range[40]]] (* Harvey P. Dale, Mar 23 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 19 2003
EXTENSIONS
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Jun 25 2003
STATUS
approved