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,1

Comments

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

Links

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

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

Cf. A003557, A005117, A007947, A013929.

Sequence in context: A269599 A368519 A059908 * A365052 A308744 A216842

Adjacent sequences: A084933 A084934 A084935 * A084937 A084938 A084939

Keyword

nonn

Author

Reinhard Zumkeller, Jul 15 2003

Status

approved