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,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..80

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).

Mathematica

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

Crossrefs

Cf. A008284, A072233.

Sequence in context: A092217 A191659 A007481 * A121268 A101173 A294451

Adjacent sequences: A238309 A238310 A238311 * A238313 A238314 A238315

Keyword

nonn

Author

Emanuele Munarini, Feb 24 2014

Status

approved