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