A340829 Number of strict integer partitions of n whose Heinz number (product of primes of parts) is divisible by n.
1, 0, 1, 0, 1, 1, 2, 0, 0, 2, 3, 0, 4, 3, 4, 0, 8, 0, 10, 0, 11, 12, 19, 0, 0, 22, 0, 0, 46, 23, 56, 0, 64, 66, 86, 0, 125, 104, 135, 0, 196, 111, 230, 0, 0, 274, 353, 0, 0, 0, 563, 0, 687, 0, 974, 0, 1039, 1052, 1290, 0, 1473, 1511, 0, 0, 2707, 1614, 2664, 0
Offset: 1
Keywords
Examples
The a(6) = 1 through a(19) = 10 partitions (empty columns indicated by dots, A = 10, B = 11): 321 43 . . 631 65 . 76 941 A32 . A7 . B8 421 4321 542 643 6431 6432 764 865 5321 652 7421 9321 872 874 6421 54321 971 982 7532 A81 7541 8542 7631 8632 74321 8641 8731 85321
Crossrefs
Note: A-numbers of Heinz-number sequences are in parentheses below.
Positions of zeros are 2 and A013929.
A000009 counts strict partitions.
A003963 multiplies together prime indices.
A056239 adds up prime indices.
A102627 counts strict partitions whose length divides sum.
A112798 lists the prime indices of each positive integer.
A120383 lists numbers divisible by all of their prime indices.
A324850 lists numbers divisible by the product of their prime indices.
A324925 counts partitions whose Heinz number is divisible by their product.
A326850 counts strict partitions whose maximum part divides sum.
A326851 counts strict partitions with length and maximum dividing sum.
A330952 counts partitions whose Heinz number is divisible by all parts.
A340828 counts strict partitions with length divisible by maximum.
A340830 counts strict partitions with parts divisible by length.
Programs
-
Mathematica
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Divisible[Times@@Prime/@#,n]&]],{n,30}]
Comments