OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..80
FORMULA
MATHEMATICA
pnkList[n_] := Table[Length[IntegerPartitions[n, {k}]], {k, 0, n}]
Table[Total[Table[Binomial[n, k], {k, 0, n}] Map[#^2 &, pnkList[n]]], {n, 0, 40}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Emanuele Munarini, Feb 24 2014
STATUS
approved