OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
PROG
(PARI)
up_to = 65537;
t1 = direuler(p=2, up_to, 1/(1-X)^3);
t2 = direuler(p=2, 2, 1+1*X^2+4*X^4, up_to);
t3 = direuler(p=2, 2, 1-2*X^1+7*X^2, up_to);
v145501 = dirmul(t1, t2);
v145511 = dirmul(t1, t3);
A158360(n) = (v145511[n] - v145501[n]); \\ (after code in A145501 and A145511) - Antti Karttunen, Sep 27 2018
CROSSREFS
KEYWORD
sign
AUTHOR
Paul Curtz, Mar 17 2009
EXTENSIONS
Edited and extended by R. J. Mathar, Apr 08 2009
STATUS
approved