A066552 Sum of digits of n-th term of A066551.

1, 13, 9, 18, 28, 5, 26, 37, 38, 34, 61, 59, 43, 58, 44, 64, 44, 59, 67, 85, 98, 89, 109, 121, 124, 144, 47, 82, 94, 104, 135, 139, 145, 103, 95, 135, 184, 162, 143, 173, 157, 151, 198, 194, 199, 218, 148, 234, 231, 261, 257, 226, 297, 169, 192, 179, 163, 195, 216

Offset: 1

Author

Amarnath Murthy, Dec 16 2001

Keywords

• nonn
• base

Crossrefs

Cf. A066547, A066549, A066551.

Programs

Mathematica

With[{c=Flatten[IntegerDigits/@(Range[400]^2)]},Table[Total[Take[c,{(n(n-1))/2+1,(n(n-1))/2+n}]],{n,60}]] (* Harvey P. Dale, Jul 21 2012 *)

Extensions

More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 01 2003