OFFSET
1,6
COMMENTS
If n > 0, we can assume this part is the smallest. - Gus Wiseman, Apr 18 2021
FORMULA
a(n) = Sum_{d|n, d<n} A025147(d-1).
G.f.: Sum_{k>=2} (x^k*Product_{i>=2}(1 + x^(k*i))).
MATHEMATICA
Take[ CoefficientList[ Expand[ Sum[x^k*Product[1 + x^(k*i), {i, 2, 92}], {k, 2, 92}]], x], {2, 81}] (* Robert G. Wilson v, Nov 01 2004 *)
Table[If[n==0, 0, Length[Select[IntegerPartitions[n], !MemberQ[#, 1]&&UnsameQ@@#&&And@@IntegerQ/@(#/Min@@#)&]]], {n, 0, 30}] (* Gus Wiseman, Apr 18 2021 *)
CROSSREFS
The non-strict version with 1's allowed is A083710.
The non-strict version is A083711.
The version with 1's allowed is A097986.
The Heinz numbers of these partitions are the odd terms of A339563.
The non-strict dual is A339619.
The strict complement is counted by A341450.
A000005 counts divisors.
A000041 counts partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A167865 counts strict chains of divisors > 1 summing to n.
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Oct 23 2004
EXTENSIONS
More terms from Robert G. Wilson v, Nov 01 2004
Name shortened by Gus Wiseman, Apr 23 2021
STATUS
approved