OFFSET
1,2
COMMENTS
A prime index of n is a number m such that prime(m) divides n.
Also one plus the size of the largest hook contained in the Young diagram of the integer partition with Heinz number n. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
MAPLE
with(numtheory):
a:= n-> `if`(n=1, 1, bigomega(n)+pi(max(factorset(n)[]))):
seq(a(n), n=1..100); # Alois P. Heinz, Apr 03 2019
MATHEMATICA
Table[If[n==1, 1, PrimeOmega[n]+PrimePi[FactorInteger[n][[-1, 1]]]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 02 2019
STATUS
approved