OFFSET
2,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 2..1000
EXAMPLE
a(7) counts these partitions: 511, 331, 322, 3211. - Clark Kimberling, Mar 10 2014
MATHEMATICA
d[n_] := Select[IntegerPartitions[n], Max[Length /@ Split@#] == 2 &];
t = Table[d[n], {n, 12}] (* shows partitions *)
u = Table[Length[d[n]], {n, 2, 30}] (* counts partitions *)
(* Clark Kimberling, Mar 10 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian G. Bower, Jan 23 2004
STATUS
approved