A238312 Square row sums of the table A072233 (A008284).

1, 1, 2, 3, 7, 11, 25, 41, 82, 142, 260, 436, 785, 1287, 2199, 3592, 5959, 9511, 15453, 24268, 38565, 59838, 93232, 142589, 219089, 330848, 500658, 748140, 1117856, 1651987, 2441484, 3572470, 5223653, 7576447, 10971112, 15775735, 22649645, 32307553, 46001087, 65138447, 92045412

Offset: 0

Author

Emanuele Munarini, Feb 24 2014

Keywords

• nonn
• changed

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..1000 (first 81 terms from Vincenzo Librandi)

Crossrefs

Cf. A000290, A008284, A072233.

Programs

Mathematica

pnkList[n_] := Table[Length[IntegerPartitions[n, {k}]], {k, 0, n}]
Table[Total[Map[#^2 &, pnkList[n]]], {n, 0, 40}]

Formula

a(n) = Sum_{k=0..n} p(n,k)^2, where p(n,k) is the number of partitions of n into k positive parts (A072233, A008284).