|
%I #8 Sep 27 2018 17:56:22
%S 0,-2,0,0,0,-6,0,6,0,-6,0,0,0,-6,0,12,0,-12,0,0,0,-6,0,18,0,-6,0,0,0,
%T -18,0,18,0,-6,0,0,0,-6,0,18,0,-18,0,0,0,-6,0,36,0,-12,0,0,0,-20,0,18,
%U 0,-6,0,0,0,-6,0,24,0,-18,0,0,0,-18,0,36,0,-6,0,0,0,-18,0,36,0,-6,0,0,0,-6,0
%N a(n) = A145511(n) - A145501(n).
%H Antti Karttunen, <a href="/A158360/b158360.txt">Table of n, a(n) for n = 1..65537</a>
%o (PARI)
%o up_to = 65537;
%o t1 = direuler(p=2, up_to, 1/(1-X)^3);
%o t2 = direuler(p=2, 2, 1+1*X^2+4*X^4, up_to);
%o t3 = direuler(p=2, 2, 1-2*X^1+7*X^2, up_to);
%o v145501 = dirmul(t1, t2);
%o v145511 = dirmul(t1, t3);
%o A158360(n) = (v145511[n] - v145501[n]); \\ (after code in A145501 and A145511) - _Antti Karttunen_, Sep 27 2018
%Y Cf. A145444, A145501, A145511, A158327, A158801.
%K sign
%O 1,2
%A _Paul Curtz_, Mar 17 2009
%E Edited and extended by _R. J. Mathar_, Apr 08 2009
|
