login
Inverse Euler transform of A118052.
1

%I #13 Mar 17 2020 10:18:58

%S 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,

%T -4,-2,22,46,22,47,-16,23,-26,-20,-28,-144,-79,-218,4,36,272,454,279,

%U 465,-133,89,-415,-455,-550,-1433,-728,-1676,455,1047,3088,4750,-7192,13949,-2177,8689

%N Inverse Euler transform of A118052.

%C Does this sequence remain small? How small?

%t A118052 = Cases[Import["https://oeis.org/A118052/b118052.txt", "Table"], {_, _}][[All, 2]];

%t (* EulerInvTransform is defined in A022562 *)

%t Join[{0}, EulerInvTransform[Rest @ A118052]] (* Jean-François Alcover, Feb 23 2020, updated Mar 17 2020 *)

%Y Cf. A118052.

%K sign

%O 0,5

%A _Franklin T. Adams-Watters_, Apr 10 2006

%E More terms from A118052 by _Jean-François Alcover_, Feb 23 2020