A330444 a(n) = Sum_{k=1..n} Stirling2(n,k) * (k-1)! * phi(k), where phi = A000010.

1, 2, 8, 44, 332, 2852, 28268, 330164, 4371452, 62867492, 980090828, 16792404884, 316446118172, 6484254233732, 142335512881388, 3299266086185204, 80092968046706492, 2040940536907449572, 55097942635383719948, 1586719679112182359124

Offset

1,2

Links

Vaclav Kotesovec, Table of n, a(n) for n = 1..420

Formula

a(n) ~ 3 * n! / (Pi^2 * (log(2))^(n+1)).

Mathematica

Table[Sum[StirlingS2[n, k] * (k-1)! * EulerPhi[k], {k, 1, n}], {n, 1, 20}]

Prog

(PARI) a(n) = sum(k=1, n, stirling(n, k, 2)*(k-1)!*eulerphi(k)); \\ Michel Marcus, Dec 15 2019

Crossrefs

Cf. A000010, A330351, A330353.

Sequence in context: A244430 A190818 A372156 * A253949 A336545 A126101

Adjacent sequences: A330441 A330442 A330443 * A330445 A330446 A330447

Keyword

nonn

Author

Vaclav Kotesovec, Dec 15 2019

Status

approved