A387111 Number of ways to choose a sequence of distinct positive integers, one in the initial interval of each prime index of n.
1, 1, 2, 0, 3, 1, 4, 0, 2, 2, 5, 0, 6, 3, 4, 0, 7, 0, 8, 0, 6, 4, 9, 0, 6, 5, 0, 0, 10, 1, 11, 0, 8, 6, 9, 0, 12, 7, 10, 0, 13, 2, 14, 0, 2, 8, 15, 0, 12, 2, 12, 0, 16, 0, 12, 0, 14, 9, 17, 0, 18, 10, 4, 0, 15, 3, 19, 0, 16, 4, 20, 0, 21, 11, 4, 0, 16, 4, 22
Offset: 1
Examples
The prime indices of 75 are (2,3,3), with initial intervals ({1,2},{1,2,3},{1,2,3}), with choices (1,2,3), (1,3,2), (2,1,3), (2,3,1), so a(75) = 4.
Crossrefs
Allowing repeated partitions gives A003963.
For constant instead of distinct we have A055396.
For integer partitions we have A387110.
Positions of nonzero terms are A387112 (choosable).
Positions of 0 are A387134 (non-choosable).
A061395 gives greatest prime index.
A120383 lists numbers divisible by all of their prime indices.
A289509 lists numbers with relatively prime prime indices.
A324850 lists numbers divisible by the product of their prime indices.
Programs
-
Mathematica
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; Table[Length[Select[Tuples[Range/@prix[n]],UnsameQ@@#&]],{n,100}]
Comments