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,2

Links

Table of n, a(n) for n=1..60.

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}] ]

Crossrefs

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

Sequence in context: A061412 A295317 A165646 * A261639 A333993 A362064

Adjacent sequences: A377069 A377070 A377071 * A377073 A377074 A377075

Keyword

nonn,easy

Author

Michael De Vlieger, Nov 14 2024

Status

approved