login
A348225
a(n) = Sum_{d|n} binomial(n,d)^d.
0
1, 3, 4, 41, 6, 8232, 8, 24010793, 592714, 1016255022068, 12, 622345952235575570, 14, 5608296349498479967477864, 244217432525411634, 752711194884611945714364093774417, 18, 1518219588672387062467026014355119245302660, 20, 46343145866349732399475841723455056148192256553403946
OFFSET
1,2
FORMULA
If p is prime, a(p) = 1 + p.
MATHEMATICA
a[n_] := DivisorSum[n, Binomial[n, #]^# &]; Array[a, 20] (* Amiram Eldar, Oct 08 2021 *)
PROG
(PARI) a(n) = sumdiv(n, d, binomial(n, d)^d);
CROSSREFS
Cf. A174464.
Sequence in context: A012472 A012876 A300882 * A172144 A032837 A127614
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Oct 08 2021
STATUS
approved