OFFSET
1,3
COMMENTS
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..65536
N. Fernandez, An order of primeness, F(p)
N. Fernandez, An order of primeness [cached copy, included at A006450 with permission of the author]
EXAMPLE
a(105) = 3 because the prime factor of 105 = 3*5*7 with maximum order of primeness is 5, with order 3.
MAPLE
with(numtheory):
p:= proc(n) option remember;
`if`(isprime(n), 1+p(pi(n)), 0)
end:
a:= n-> max(0, map(p, factorset(n))):
seq(a(n), n=1..120); # Alois P. Heinz, Nov 24 2018
MATHEMATICA
Table[If[n==1, 0, Max@@(Length[NestWhileList[PrimePi, PrimePi[#], PrimeQ]]&/@FactorInteger[n][[All, 1]])], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 24 2018
STATUS
approved