A096314 a(n) = Sum_{1<=k<=n, gcd(n,k)=1} (-1)^(n-k)*Stirling1(n,k).

1, 1, 5, 12, 119, 135, 5039, 20160, 240219, 1545075, 39916799, 88550154, 6227020799, 42798202447, 698726730520, 10461394944000, 355687428095999, 1375276302469251, 121645100408831999, 845066215769150100

Offset: 1

Author

Vladeta Jovovic, Aug 01 2004

Keywords

• easy
• nonn

Crossrefs

Cf. A008275.

Programs

Mathematica

f[n_] := Sum[ If[ GCD[n, k] == 1, (-1)^(n - k)StirlingS1[n, k], 0], {k, n}]; Table[ f[n], {n, 20}] (* Robert G. Wilson v, Aug 12 2004 *)

Extensions

More terms from Robert G. Wilson v, Aug 12 2004