A084936 Nonsquarefree numbers divided by their squarefree kernels.

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

Author

Reinhard Zumkeller, Jul 15 2003

Keywords

• nonn

Comments

m is a term iff A003557(m) > 1.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A003557, A005117, A007947, A013929.

Programs

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 *)

Formula

a(n) = A003557(A013929(n)). - Amiram Eldar, Feb 11 2021