[go: up one dir, main page]

login
A084936
Nonsquarefree numbers divided by their squarefree kernels.
6
2, 4, 3, 2, 8, 3, 2, 4, 5, 9, 2, 16, 6, 4, 2, 3, 8, 7, 5, 2, 9, 4, 2, 3, 32, 2, 12, 5, 2, 8, 27, 2, 4, 3, 2, 16, 7, 3, 10, 4, 18, 8, 2, 3, 4, 11, 2, 25, 3, 64, 2, 9, 4, 2, 24, 7, 2, 5, 4, 3, 2, 16, 27, 2, 4, 13, 3, 2, 5, 8, 6, 4, 2, 9, 32, 14, 3, 20, 2, 3, 8, 2, 36, 2, 16, 15, 2, 4, 3, 2, 8
OFFSET
1,1
COMMENTS
m is a term iff A003557(m) > 1.
LINKS
FORMULA
a(n) = A003557(A013929(n)). - Amiram Eldar, Feb 11 2021
MATHEMATICA
f[p_, e_] := p^(e - 1); s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; s /@ Select[Range[300], !SquareFreeQ[#] &] (* Amiram Eldar, Feb 11 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 15 2003
STATUS
approved