This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A377072 #4 Nov 17 2024 07:09:11
%S A377072 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 A377072 25,199,27,477,29,410,31,32,163,327,109,211,37,403,217,1031,41,786,43,
%U A377072 1625,272,579,47,665,49,203,349,2595,53,211,201,3355,427,903,59,2261
%N A377072 a(n) = sum of row n of A377070.
%t A377072 Block[{k}, rad[x_] := rad[x] = Times @@ FactorInteger[x][[All, 1]];
%t A377072 Table[k = PrimeOmega[n];
%t A377072 Total@ Select[Range[n^PrimeNu[n]],
%t A377072 Divisible[n, rad[#]] && PrimeOmega[#] == k &], {n, 60}] ]
%Y A377072 Cf. A000203, A024619, A244974, A376248, A377070.
%K A377072 nonn,easy
%O A377072 1,2
%A A377072 _Michael De Vlieger_, Nov 14 2024