OFFSET
1,2
FORMULA
MATHEMATICA
Table[Total[Flatten[Select[IntegerPartitions[n], MemberQ[#, 1]&]]], {n, 40}] (* Harvey P. Dale, Sep 27 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Sep 23 2013
STATUS
approved