A387120 Number of ways to choose a different constant integer partition of each prime index of n.
1, 1, 2, 0, 2, 2, 3, 0, 2, 2, 2, 0, 4, 3, 4, 0, 2, 2, 4, 0, 6, 2, 3, 0, 2, 4, 0, 0, 4, 4, 2, 0, 4, 2, 6, 0, 6, 4, 8, 0, 2, 6, 4, 0, 4, 3, 4, 0, 6, 2, 4, 0, 5, 0, 4, 0, 8, 4, 2, 0, 6, 2, 6, 0, 8, 4, 2, 0, 6, 6, 6, 0, 4, 6, 4, 0, 6, 8, 4, 0, 0, 2, 2, 0, 4, 4, 8
Offset: 1
Examples
The prime indices of 90 are {1,2,2,3}, with choices: ((1),(2),(1,1),(3)) ((1),(1,1),(2),(3)) ((1),(2),(1,1),(1,1,1)) ((1),(1,1),(2),(1,1,1)) so a(90) = 4.
Crossrefs
For divisors instead of constant partitions we have A355739 (also the disjoint case).
For prime factors instead of constant partitions we have A387136.
For initial intervals instead of partitions we have A387111.
For strict instead of constant partitions we have A387115.
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[Select[IntegerPartitions[#],SameQ@@#&]&/@prix[n]],UnsameQ@@#&]],{n,100}]
Comments