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

Links

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A176473, A176475.

Sequence in context: A162019 A066268 A257227 * A000464 A291973 A024149

Adjacent sequences: A176471 A176472 A176473 * A176475 A176476 A176477

Keyword

nonn

Author

Robert G. Wilson v, Apr 18 2010

Status

approved