OFFSET
0,4
COMMENTS
Square array B(m,n) begins:
0, 1/1, 1/1, 3/2, 2/1, 17/6, ...
1/1, 0, 1/2, 1/2, 5/6, 7/6, ...
-1/1, 1/2, 0, 1/3, 1/3, 7/12, ...
3/2, -1/2, 1/3, 0, 1/4, 1/4, ...
-2/1, 5/6, -1/3, 1/4, 0, 1/5, ...
17/6, -7/6, 7/12, -1/4, 1/5, 0, ...
The inverse binomial transform of B(0,n) gives B(n,0) and thus it is an eigensequence in the sense that it remains the same (up to a sign) under inverse binomial transform.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
FORMULA
Numerator of (A000204(n) - 1)/n. - Artur Jasinski, Oct 21 2022
MAPLE
B:= proc(m, n) option remember;
if m=n then 0
elif n=m+1 then 1/n
elif n>m then B(m, n-1) +B(m+1, n-1)
else B(m-1, n+1) -B(m-1, n)
fi
end:
a:= n-> numer(B(0, n)):
seq(a(n), n=0..50); # Alois P. Heinz, Apr 29 2011
MATHEMATICA
Rest[Numerator[Abs[CoefficientList[Normal[Series[Log[1 - x^2/(1 + x)], {x, 0, 40}]], x]]]] (* Vaclav Kotesovec, Jul 07 2020 *)
Table[Numerator[(LucasL[n]-1)/n], {n, 1, 38}] (* Artur Jasinski, Oct 21 2022 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paul Curtz, Apr 26 2011
STATUS
approved