OFFSET
1,2
COMMENTS
The product of the exponents of the prime factorization of the powerful numbers.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_] := Module[{e = FactorInteger[n][[;; , 2]]}, If[n == 1 || Min[e] > 1, Times @@ e, Nothing]]; Array[f, 2500]
PROG
(PARI) lista(kmax) = {my(e); for(k = 1, kmax, e = factor(k)[, 2]; if(k == 1 || vecmin(e) > 1, print1(vecprod(e), ", "))); }
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Feb 15 2024
STATUS
approved