A387115 Number of ways to choose a sequence of distinct strict integer partitions, one of each prime index of n.
1, 1, 1, 0, 2, 1, 2, 0, 0, 2, 3, 0, 4, 2, 2, 0, 5, 0, 6, 0, 2, 3, 8, 0, 2, 4, 0, 0, 10, 2, 12, 0, 3, 5, 4, 0, 15, 6, 4, 0, 18, 2, 22, 0, 0, 8, 27, 0, 2, 2, 5, 0, 32, 0, 6, 0, 6, 10, 38, 0, 46, 12, 0, 0, 8, 3, 54, 0, 8, 4, 64, 0, 76, 15, 2, 0, 6, 4, 89, 0, 0
Offset: 1
Examples
The prime indices of 15 are (2,3), and there are a(15) = 2 choices: ((2),(3)) ((2),(2,1)) The prime indices of 121 are (5,5), and there are a(121) = 6 choices: ((5),(4,1)) ((5),(3,2)) ((4,1),(5)) ((4,1),(3,2)) ((3,2),(5)) ((3,2),(4,1))
Crossrefs
The disjoint case is A383706.
For initial intervals instead of strict partitions we have A387111.
For constant instead of strict partitions we have A387120.
A003963 multiplies together the prime indices of n.
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[Select[IntegerPartitions[#],UnsameQ@@#&]&/@prix[n]],UnsameQ@@#&]],{n,100}]
Comments