OFFSET
4,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 4..1000
MATHEMATICA
Table[Sum[n!/Product[IntegerPartitions[n, {4}][[k, j]]!, {j, 1, 4}], {k, 1, Length[ IntegerPartitions[n, {4}]]}], {n, 4, 20}] (* Vaclav Kotesovec, Jul 01 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Jun 21 2013
STATUS
approved