OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
PROG
(PARI)
up_to = 1001;
t1=direuler(p=2, up_to, 1/(1-X)^3);
t2=direuler(p=2, 2, 1+3*X^2+2*X^3, up_to);
t3=dirmul(t1, t2); \\ For A145444
u1=direuler(p=2, up_to, 1/(1-X)^3);
u2=direuler(p=2, 2, 1+1*X^2+4*X^4, up_to);
u3=dirmul(u1, u2); \\ For A145501
A158801(n) = (t3[n]-u3[n]); \\ Antti Karttunen, Jul 21 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Curtz, Mar 27 2009
EXTENSIONS
Edited and extended by R. J. Mathar, Apr 08 2009
STATUS
approved