OFFSET
1,49
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..100000
FORMULA
MATHEMATICA
f[p_, e_] := If[Mod[p, 3] == 1, e, 0]; f[3, e_] := 0; a[1] = 0; a[n_] := Plus @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Jun 17 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 13 2024
STATUS
approved