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