|
|
A369912
|
|
a(n) = Sum_{p|n, p prime} p^sopf(n/p).
|
|
2
|
|
|
0, 1, 1, 4, 1, 17, 1, 4, 27, 57, 1, 41, 1, 177, 368, 4, 1, 251, 1, 153, 2530, 2169, 1, 41, 3125, 8361, 27, 561, 1, 5568, 1, 4, 178478, 131361, 94932, 275, 1, 524649, 1596520, 153, 1, 37514, 1, 8313, 6686, 8389137, 1, 41, 823543, 78157, 129145076, 32937, 1, 251
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
MATHEMATICA
|
a[n_] := Sum[p, {p, Select[Divisors[n], PrimeQ]}]; Table[DivisorSum[n, #^a[n/#] &, PrimeQ[#] &], {n, 80}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|