A370805 Number of condensed integer partitions of n into parts > 1.
1, 0, 1, 1, 2, 2, 3, 4, 6, 6, 9, 11, 15, 18, 22, 27, 34, 41, 51, 62, 75, 90, 109, 129, 153, 185, 217, 258, 307, 359, 421, 493, 577, 675, 788, 909, 1062, 1227, 1418, 1633, 1894, 2169, 2497, 2860, 3285, 3754, 4298, 4894, 5587, 6359, 7230, 8215, 9331, 10567, 11965
Offset: 0
Keywords
Examples
The a(0) = 1 through a(9) = 6 partitions: () . (2) (3) (4) (5) (6) (7) (8) (9) (2,2) (3,2) (3,3) (4,3) (4,4) (5,4) (4,2) (5,2) (5,3) (6,3) (3,2,2) (6,2) (7,2) (3,3,2) (4,3,2) (4,2,2) (5,2,2)
Crossrefs
A000005 counts divisors.
Programs
-
Mathematica
Table[Length[Select[IntegerPartitions[n],FreeQ[#,1] && Length[Select[Tuples[Divisors/@#],UnsameQ@@#&]]>0&]],{n,0,30}]
Extensions
More terms from Jinyuan Wang, Feb 14 2025
Comments