OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
12 = 2^2 *3^1. Since the sum of the prime factorization exponents, 2+1 = 3, is >= the largest prime dividing 12, which is 3, then 12 is included in the sequence.
MATHEMATICA
fQ[n_] := Block[{f = FactorInteger@n}, Plus @@ Last /@ f >= Max[First /@ f]]; Select[ Range[2, 800], fQ@ # &] (* Robert G. Wilson v, Jan 16 2006 *)
qu[n_]:=n>1&&Block[{f=Transpose@FactorInteger@n, s}, s=Plus@@f[[2]]; s>=Max@f[[1]]]; L ={}; Do[If[qu[n], Print[n]; AppendTo[L, n]], {n, 1000}]; L (* Giovanni Resta, Jan 16 2006 *)
PROG
(PARI) isok(m) = {my(f=factor(m)); #select(x->(x>bigomega(f)), f[, 1]~) == 0; } \\ Michel Marcus, Sep 17 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jan 15 2006
EXTENSIONS
More terms from Robert G. Wilson v and Giovanni Resta, Jan 16 2006
STATUS
approved