OFFSET
0,8
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..3000
MAPLE
a:= n->(p->p*add(i[2]/i[1], i=ifactors(p)[2]))(combinat[numbpart](n)):
seq(a(n), n=0..100); # Alois P. Heinz, Jun 04 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 19 2004
STATUS
approved