OFFSET
0,7
COMMENTS
FORMULA
Except for n = 0 and n = 4, we have a(n) = A002865(n) - 1.
EXAMPLE
The a(5) = 1 through a(11) = 13 partitions:
(3,2) (3,3) (4,3) (4,4) (5,4) (5,5) (6,5)
(4,2) (5,2) (5,3) (6,3) (6,4) (7,4)
(2,2,2) (3,2,2) (6,2) (7,2) (7,3) (8,3)
(3,3,2) (3,3,3) (8,2) (9,2)
(4,2,2) (4,3,2) (4,3,3) (4,4,3)
(2,2,2,2) (5,2,2) (4,4,2) (5,3,3)
(3,2,2,2) (5,3,2) (5,4,2)
(6,2,2) (6,3,2)
(3,3,2,2) (7,2,2)
(4,2,2,2) (3,3,3,2)
(2,2,2,2,2) (4,3,2,2)
(5,2,2,2)
(3,2,2,2,2)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], FreeQ[#, 1]&&Plus@@#<Times@@#&]], {n, 0, 30}]
CROSSREFS
For <= instead of < we have A002865 = partitions into parts > 1.
These partitions have ranks A071904 (except initial terms).
Set a(4) = 1 to get A083751.
A379668 counts partitions without 1's by sum and product.
Counting and ranking multisets by comparing sum and product:
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 06 2025
STATUS
approved
