|
%I #7 Jul 21 2018 15:53:05
%S 0,0,0,2,0,0,0,8,0,0,0,6,0,0,0,14,0,0,0,6,0,0,0,24,0,0,0,6,0,0,0,20,0,
%T 0,0,12,0,0,0,24,0,0,0,6,0,0,0,42,0,0,0,6,0,0,0,24,0,0,0,18,0,0,0,26,
%U 0,0,0,6,0,0,0,48,0,0,0,6,0,0,0,42,0,0,0,18,0,0,0,24,0,0,0,6,0,0,0,60,0,0,0
%N a(n) = A145444(n) - A145501(n).
%H Antti Karttunen, <a href="/A158801/b158801.txt">Table of n, a(n) for n = 1..65537</a>
%o (PARI)
%o up_to = 1001;
%o t1=direuler(p=2, up_to, 1/(1-X)^3);
%o t2=direuler(p=2, 2, 1+3*X^2+2*X^3, up_to);
%o t3=dirmul(t1, t2); \\ For A145444
%o u1=direuler(p=2, up_to, 1/(1-X)^3);
%o u2=direuler(p=2, 2, 1+1*X^2+4*X^4, up_to);
%o u3=dirmul(u1, u2); \\ For A145501
%o A158801(n) = (t3[n]-u3[n]); \\ _Antti Karttunen_, Jul 21 2018
%Y See A145444, A145501, A145511, A158334.
%K nonn
%O 1,4
%A _Paul Curtz_, Mar 27 2009
%E Edited and extended by _R. J. Mathar_, Apr 08 2009
|
