OFFSET
1,3
COMMENTS
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). A prime index of n is a number m such that prime(m) divides n.
EXAMPLE
The partition with Heinz number 7865 is (6,5,5,3), so a(7865) = 4*3 = 12.
MATHEMATICA
Table[PrimeOmega[n]*PrimePi[FactorInteger[n][[1, 1]]], {n, 100}]
PROG
(PARI) a(n) = if (n==1, 0, my(f=factor(n)); bigomega(f)*primepi(f[1, 1])); \\ Michel Marcus, Dec 28 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Dec 28 2022
STATUS
approved