|
|
A082962
|
|
Numerators of continued fraction convergents to (sqrt(37)-4)/3.
|
|
2
|
|
|
0, 1, 2, 7, 9, 25, 84, 109, 302, 1015, 1317, 3649, 12264, 15913, 44090, 148183, 192273, 532729, 1790460, 2323189, 6436838, 21633703, 28070541, 77774785, 261394896, 339169681, 939734258, 3158372455, 4098106713, 11354585881, 38161864356
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
Empirical g.f.: x*(1+2*x+7*x^2-3*x^3+x^4)/(1-12*x^3-x^6). - Colin Barker, Jan 04 2012
|
|
MATHEMATICA
|
t = Join[{0}, Flatten[ Table[{1, 2, 3}, {12}]]]; Rest[ Table[ Numerator[ FromContinuedFraction[ Take[t, n]]], {n, 31}]] (* Robert G. Wilson v, Feb 12 2005 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|