A377072 - OEIS

%I #4 Nov 17 2024 07:09:11

%S 1,2,3,4,5,19,7,8,9,39,11,65,13,67,49,16,17,65,19,203,79,147,23,211,

%T 25,199,27,477,29,410,31,32,163,327,109,211,37,403,217,1031,41,786,43,

%U 1625,272,579,47,665,49,203,349,2595,53,211,201,3355,427,903,59,2261

%N a(n) = sum of row n of A377070.

%t Block[{k}, rad[x_] := rad[x] = Times @@ FactorInteger[x][[All, 1]];

%t   Table[k = PrimeOmega[n];

%t     Total@ Select[Range[n^PrimeNu[n]],

%t       Divisible[n, rad[#]] && PrimeOmega[#] == k &], {n, 60}] ]

%Y Cf. A000203, A024619, A244974, A376248, A377070.

%K nonn,easy

%O 1,2

%A _Michael De Vlieger_, Nov 14 2024