A174464 a(n) = Sum_{d|n} C(n,d)^(n/d).

1, 5, 28, 293, 3126, 50432, 823544, 17396773, 388013194, 10184591630, 285311670612, 9001219099424, 302875106592254, 11163682939272372, 437913418466474778, 18489753215468948517, 827240261886336764178

Offset

1,2

Links

Seiichi Manyama, Table of n, a(n) for n = 1..386

Formula

Logarithmic derivative of A174463.

a(n) ~ n^n. - Vaclav Kotesovec, Oct 05 2020

Mathematica

Table[Sum[Binomial[n, d]^(n/d), {d, Divisors[n]}], {n, 1, 20}] (* Vaclav Kotesovec, Oct 05 2020 *)

Prog

(PARI) {a(n)=sumdiv(n, d, binomial(n, d)^(n/d))}

Crossrefs

Cf. A174463.

Sequence in context: A354899 A057792 A338661 * A354897 A345632 A024068

Adjacent sequences: A174461 A174462 A174463 * A174465 A174466 A174467

Keyword

nonn

Author

Paul D. Hanna, Apr 04 2010

Status

approved