OFFSET
1,13
COMMENTS
LINKS
Wikipedia, Cartesian product.
EXAMPLE
The prime indices of 1469 are {6,30}, and there are five valid choices: (2,2), (2,3), (2,5), (3,3), (3,5), so a(1469) = 5.
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[Length[Select[Tuples[Union/@primeMS/@primeMS[n]], LessEqual@@#&]], {n, 100}]
CROSSREFS
Not requiring an increasing sequence gives A355741.
Choosing a multiset instead of sequence gives A355744.
A000005 counts divisors.
A003963 multiplies together the prime indices of n.
A120383 lists numbers divisible by all of their prime indices.
A324850 lists numbers divisible by the product of their prime indices.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 18 2022
STATUS
approved