A387110 Number of ways to choose a sequence of distinct integer partitions, one of each prime index of n.
1, 1, 2, 0, 3, 2, 5, 0, 2, 3, 7, 0, 11, 5, 6, 0, 15, 2, 22, 0, 10, 7, 30, 0, 6, 11, 0, 0, 42, 6, 56, 0, 14, 15, 15, 0, 77, 22, 22, 0, 101, 10, 135, 0, 6, 30, 176, 0, 20, 6, 30, 0, 231, 0, 21, 0, 44, 42, 297, 0, 385, 56, 10, 0, 33, 14, 490, 0, 60, 15, 627, 0
Offset: 1
Examples
The prime indices of 9 are (2,2), and there are a(9) = 2 choices: ((2),(1,1)) ((1,1),(2)) The prime indices of 15 are (2,3), and there are a(15) = 5 choices: ((2),(3)) ((2),(2,1)) ((2),(1,1,1)) ((1,1),(2,1)) ((1,1),(1,1,1))
Crossrefs
The disjoint case is A383706.
For initial intervals instead of partitions we have A387111.
The case of strict partitions is A387115.
The case of constant partitions is A387120.
Taking each prime factor (instead of index) gives A387133.
A003963 multiplies together prime indices.
A120383 lists numbers divisible by all of their prime indices.
A289509 lists numbers with relatively prime prime indices.
Programs
-
Mathematica
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; Table[Length[Select[Tuples[IntegerPartitions/@prix[n]],UnsameQ@@#&]],{n,100}]
Comments