A319153 Number of integer partitions of n that reduce to 2, meaning their Heinz number maps to 2 under A304464.
0, 2, 1, 3, 5, 7, 12, 17, 24, 33, 44, 57, 76, 100, 129, 168, 214, 282, 355, 462, 586, 755, 937, 1202, 1493, 1900, 2349, 2944, 3621, 4520, 5514, 6813, 8298, 10150, 12240, 14918, 17931, 21654, 25917, 31081, 37029, 44256, 52474, 62405, 73724, 87378, 102887
Offset: 1
Keywords
Examples
The a(7) = 12 partitions: (43), (52), (61), (322), (331), (511), (2221), (3211), (4111), (22111), (31111), (211111).
Crossrefs
Programs
-
Mathematica
Table[Length[Select[IntegerPartitions[n],NestWhile[Sort[Length/@Split[#]]&,#,Length[#]>1&]=={2}&]],{n,30}]
Comments