A283748 a(n) = least m such that (2^n-1)/2^n < f(m) < (2*2^n-1)/2^(n+1), where f(m) = fractional part of m*(golden ratio).

2, 1, 3, 16, 8, 21, 55, 288, 144, 377, 1974, 987, 2584, 6765, 35422, 17711, 46368

Offset

1,1

Comments

This is column 1 of A283741; |a(n+1)-a(n)| is a Fibonacci number for n>=1.

Links

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

Mathematica

g = GoldenRatio; z = 100000; t = Table[N[FractionalPart[n*g]], {n, 1, z}];
r[k_] := Select[Range[z], (2^k - 1)/2^k < t[[#]] < (2*2^k - 1)/2^(k + 1) &, 1];
Flatten[Table[r[k], {k, 0, 50}]]  (* A283748 *)

Crossrefs

Cf. A000045, A001622, A283740, A283748.

Sequence in context: A153189 A362272 A095852 * A209365 A209394 A209023

Adjacent sequences: A283745 A283746 A283747 * A283749 A283750 A283751

Keyword

nonn,easy

Author

Clark Kimberling, Mar 17 2017

Status

approved