A158801 - OEIS

%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