|
|
A126952
|
|
a(0)=1, a(n+1) = 5*a(n)-4*A117641(n) for n>=0.
|
|
3
|
|
|
1, 1, 5, 21, 93, 421, 1937, 9017, 42349, 200277, 952425, 4549953, 21818841, 104966889, 506372277, 2448641061, 11865563853, 57604036309, 280110716777, 1364092539041, 6651682319233, 32474171399649, 158714415664557
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
Hankel transform is 4^n=A000302(n).
|
|
LINKS
|
|
|
MATHEMATICA
|
Block[{$MaxExtraPrecision = 10^3, s = Rest@ CoefficientList[Series[(1 + 3 x - Sqrt[1 - 6 x + 5 x^2])/(2 x^2 + 6 x), {x, 0, 21}], x]}, Nest[Append[#, 5 #[[-1]] - 4 s[[Length@ # - 1]] ] &, {1, 1}, Length@ s]] (* Michael De Vlieger, Dec 15 2019, after Robert G. Wilson v at A117641 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|