A084365 - OEIS

%I #9 Sep 07 2020 06:30:24

%S 6,10,6,14,15,6,10,21,22,6,26,14,30,33,34,35,6,38,39,10,42,22,15,46,6,

%T 10,51,26,6,55,14,57,58,30,62,21,65,66,34,69,70,6,74,15,38,77,78,10,

%U 82,42,85,86,87,22,30,91,46,93,94,95,6,14,33,10,102,26,105,106,6

%N Squarefree kernel of numbers that are not prime powers.

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

%F a(n) = A007947(A024619(n)).

%t f[n_] := If[Length[(p = FactorInteger[n][[;; , 1]])] > 1, Times @@ p, 0]; Select[f /@ Range[300], # > 0 &] (* _Amiram Eldar_, Sep 07 2020 *)

%Y Cf. A007947, A024619.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Jun 22 2003