login
A084365
Squarefree kernel of numbers that are not prime powers.
1
6, 10, 6, 14, 15, 6, 10, 21, 22, 6, 26, 14, 30, 33, 34, 35, 6, 38, 39, 10, 42, 22, 15, 46, 6, 10, 51, 26, 6, 55, 14, 57, 58, 30, 62, 21, 65, 66, 34, 69, 70, 6, 74, 15, 38, 77, 78, 10, 82, 42, 85, 86, 87, 22, 30, 91, 46, 93, 94, 95, 6, 14, 33, 10, 102, 26, 105, 106, 6
OFFSET
1,1
LINKS
FORMULA
a(n) = A007947(A024619(n)).
MATHEMATICA
f[n_] := If[Length[(p = FactorInteger[n][[;; , 1]])] > 1, Times @@ p, 0]; Select[f /@ Range[300], # > 0 &] (* Amiram Eldar, Sep 07 2020 *)
CROSSREFS
Sequence in context: A156383 A247270 A010726 * A066135 A070393 A071630
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 22 2003
STATUS
approved