A176474 From the coefficients (times n!) of the expansion of the Sum_{k>=1} cos(x^k).

0, 1, 11, 361, 18479, 1814401, 220207679, 43589145601, 9589093113599, 3210079038566401, 1115080757523532799, 562000363888803840001, 285218528618534141030399, 201645730563302817792000001

Offset: 1

Author

Robert G. Wilson v, Apr 18 2010

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..225

Crossrefs

Cf. A176473, A176475.

Programs

Mathematica

Rest@ Union[ -Range[0, 26]! CoefficientList[ Series[ Sum[ Cos[x^n], {n, 35}], {x, 0, 27}], x]]

PARI

{ my(N=33, x='x+O('x^N)); v = Vec(serlaplace(-sum(k=1,N,cos(x^k)))); vector(#v\2-1, k, v[2*k+1])} \\ \\ Joerg Arndt, Apr 21 2017