login
Nonsquarefree numbers divided by their squarefree kernels.
6

%I #11 Feb 11 2021 03:32:11

%S 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,

%T 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,

%U 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

%N Nonsquarefree numbers divided by their squarefree kernels.

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

%H Amiram Eldar, <a href="/A084936/b084936.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A003557(A013929(n)). - _Amiram Eldar_, Feb 11 2021

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

%Y Cf. A003557, A005117, A007947, A013929.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Jul 15 2003