A125676 a(n) = floor(abs(b(n))), where b(1) = 2, b(n) = b(n-1) - 1/b(n-1).

2, 1, 0, 0, 2, 1, 1, 0, 0, 0, 0, 1, 1, 0, 3, 3, 3, 2, 2, 1, 1, 0, 1, 0, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 22, 22, 22, 22, 22, 22, 22, 22

Offset

1,1

Links

Table of n, a(n) for n=1..72.

Mathematica

f[l_List] := Append[l, l[[ -1]] - 1/l[[ -1]]]; Floor /@ Abs /@ Nest[f, {2}, 30] (* Ray Chandler, Feb 08 2007 *)

Prog

(PARI) lista(nn) = my(b=2); print1(2); for(n=2, nn, print1(", ", floor(abs(b-=1/b)))); \\ Jinyuan Wang, Aug 10 2021

Crossrefs

Cf. A127814, A127815.

Sequence in context: A323439 A054008 A347031 * A291955 A291904 A249808

Adjacent sequences: A125673 A125674 A125675 * A125677 A125678 A125679

Keyword

nonn

Author

Leroy Quet, Jan 30 2007

Extensions

a(9)-a(31) from Ray Chandler, Feb 08 2007

More terms from Jinyuan Wang, Aug 10 2021

Status

approved