close
login
A032243
"DHK" (bracelet, identity, unlabeled) transform of 1,0,1,0,... (odd).
1
1, 1, 0, 1, 1, 1, 1, 1, 2, 2, 3, 4, 8, 11, 18, 31, 48, 79, 123, 203, 315, 514, 791, 1278, 1983, 3169, 4922, 7832, 12206, 19333, 30215, 47757, 74816, 118125, 185423, 292674, 460279, 726599, 1144508, 1807639, 2851366, 4506371, 7117308
OFFSET
0,9
LINKS
C. G. Bower, Transforms (2)
PROG
(PARI)
DHK(p, n)={my(q=((1+p)^2/(1-subst(p, x, x^2))-1)/2); p + (p^2-subst(p, x, x^2))/2 + sum(d=1, n, moebius(d)*(log(subst(1/(1+O(x*x^(n\d))-p), x, x^d))/d - subst(q + O(x*x^(n\d)), x, x^d)))/2}
seq(n)=Vec(1 + DHK(x/(1-x^2) + O(x*x^n), n)) \\ Andrew Howroyd, Sep 21 2018
CROSSREFS
Sequence in context: A378753 A320009 A147558 * A153922 A153943 A361117
KEYWORD
nonn
EXTENSIONS
a(0)=1 prepended by Andrew Howroyd, Sep 21 2018
STATUS
approved