A118054 Inverse Euler transform of A118052.

0, 1, 0, 1, 2, 1, 2, 0, 2, 1, 3, 2, -1, 0, -3, 0, -2, 4, 5, 3, 5, -1, 5, 1, 4, 1, -11, -8, -25, -4, -2, 22, 46, 22, 47, -16, 23, -26, -20, -28, -144, -79, -218, 4, 36, 272, 454, 279, 465, -133, 89, -415, -455, -550, -1433, -728, -1676, 455, 1047, 3088, 4750, -7192, 13949, -2177, 8689

Offset: 0

Author

Franklin T. Adams-Watters, Apr 10 2006

Keywords

• sign

Comments

Does this sequence remain small? How small?

Crossrefs

Cf. A118052.

Programs

Mathematica

A118052 = Cases[Import["https://oeis.org/A118052/b118052.txt", "Table"], {, }][[All, 2]];
(* EulerInvTransform is defined in A022562 *)
Join[{0}, EulerInvTransform[Rest @ A118052]] (* Jean-François Alcover, Feb 23 2020, updated Mar 17 2020 *)

Extensions

More terms from A118052 by Jean-François Alcover, Feb 23 2020