A377072 a(n) = sum of row n of A377070.

1, 2, 3, 4, 5, 19, 7, 8, 9, 39, 11, 65, 13, 67, 49, 16, 17, 65, 19, 203, 79, 147, 23, 211, 25, 199, 27, 477, 29, 410, 31, 32, 163, 327, 109, 211, 37, 403, 217, 1031, 41, 786, 43, 1625, 272, 579, 47, 665, 49, 203, 349, 2595, 53, 211, 201, 3355, 427, 903, 59, 2261

Offset: 1

Author

Michael De Vlieger, Nov 14 2024

Keywords

• nonn
• easy

Crossrefs

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

Programs

Mathematica

Block[{k}, rad[x_] := rad[x] = Times @@ FactorInteger[x][[All, 1]];
  Table[k = PrimeOmega[n];
    Total@ Select[Range[n^PrimeNu[n]],
      Divisible[n, rad[#]] && PrimeOmega[#] == k &], {n, 60}] ]