OFFSET
1,12
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..100000
FORMULA
EXAMPLE
The prime factors of 300 are {2,2,3,5,5} of which {2,2,3} are less than the largest, so a(300) = 3.
MATHEMATICA
Table[PrimeOmega[n/Power@@FactorInteger[n][[-1]]], {n, 100}]
PROG
(PARI)
A071178(n) = if(1==n, 0, factor(n)[omega(n), 2]);
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 12 2019
EXTENSIONS
Data section extended up to term a(105) by Antti Karttunen, Nov 17 2019
STATUS
approved