OFFSET
1,2
COMMENTS
Also equals row sums of A180683.
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..100.
MATHEMATICA
pathcount[p_] := Block[{ferr = (0*Range[#1] &) /@ p}, Last[ Fold[ Rest[ FoldList[ Plus, 0, Drop[#1, Length[#1] - Length[#2]] + #2]] &, 1 + First[ferr], Rest[ferr]]]]; f[n_] := Block[{k = 1, s = 0}, While[k < n + 1, s = s + Plus @@ pathcount /@ IntegerPartitions[n, {k}]; k++ ]; s]; Array[f, 39]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wouter Meeussen, Sep 16 2010
EXTENSIONS
a(37) onwards from Robert G. Wilson v, Sep 25 2010
STATUS
approved