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,3

Links

Table of n, a(n) for n=1..20.

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 *)

Crossrefs

Cf. A008275.

Sequence in context: A009427 A267271 A009754 * A332466 A323565 A195538

Adjacent sequences: A096311 A096312 A096313 * A096315 A096316 A096317

Keyword

easy,nonn

Author

Vladeta Jovovic, Aug 01 2004

Extensions

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

Status

approved