A238312 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

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

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. A000290, A008284, A072233.