login
A377378
a(n) = sum of row n of A376248.
1
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
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
KEYWORD
nonn,easy
AUTHOR
Michael De Vlieger, Nov 14 2024
STATUS
approved