A377378 a(n) = sum of row n of A376248.

1, 3, 4, 7, 6, 25, 8, 15, 13, 47, 12, 90, 14, 77, 58, 31, 18, 90, 20, 250, 90, 161, 24, 301, 31, 215, 40, 554, 30, 490, 32, 63, 178, 347, 122, 301, 38, 425, 234, 1281, 42, 902, 44, 1786, 330, 605, 48, 966, 57, 250, 370, 2810, 54, 301, 218, 3909, 450, 935, 60, 2751

Offset

1,2

Comments

For prime p, a(p) = A244974(p) = A000203(p) = p+1.

For prime power p^k, a(p^k) = A244974(p^k) = A000203(p^k).

For n in A024619, a(n) != A244974(n).

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Mathematica

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

Crossrefs

Cf. A000203, A024619, A244974, A376248.

Sequence in context: A117134 A334127 A095001 * A344458 A068905 A241625

Adjacent sequences: A377366 A377367 A377377 * A377379 A377380 A377381

Keyword

nonn,easy

Author

Michael De Vlieger, Nov 14 2024

Status

approved