OFFSET
1,10
EXAMPLE
MATHEMATICA
A000837[n_]:= Sum[ MoebiusMu[n/d]*PartitionsP[d], {d, Divisors[n]}];A024994[n_]:= Sum[ PartitionsQ[k], {k, Divisors[n] // Most}]; a[n_]:= PartitionsP[n] - (A000837[n] +A024994[n]); Table[a[n], {n, 1, 65}] (*Jean-François Alcover,Oct 03 2013 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Alford Arnold,Mar 16 2001
EXTENSIONS
More terms fromNaohiro Nomoto,Mar 01 2002
STATUS
approved