A246104 -id:A246104 - cp's OEIS frontend

A256654 Least Fibonacci number not less than n.

1, 2, 3, 5, 5, 8, 8, 8, 13, 13, 13, 13, 13, 21, 21, 21, 21, 21, 21, 21, 21, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89

Offset: 1

Clark Kimberling, Apr 08 2015

This sequence plays a role in the definition of minimal alternating Fibonacci representations, introduced at A256655.

Essentially the same as A246104. - R. J. Mathar, Apr 14 2015

Clark Kimberling, Table of n, a(n) for n = 1..10000

Cf. A000045, A087172, A246104, A256655.

h[0] = {1}; h[n_] := Join[h[n - 1], Table[Fibonacci[n + 2], {k, 1, Fibonacci[n]}]]; h[10]

Concatenate these numbers: F(2), F(3), F(4), then F(3) F(5)'s, then F(4) F(6)'s, then F(5) F(7)'s, ... F(n+2) F(n)'s, ..., where F = A000045, the Fibonacci numbers.

Sum_{n>=1} 1/a(n)^2 = 1 + Sum_{n>=1} F(n)/F(n+2)^2 = 1.5651369873... . - Amiram Eldar, Aug 16 2022

A246105 Least m > 0 for which (s(m),...,s(n+m-1)) = (s(n),...,s(0)), the reverse of the first n+1 terms of the infinite Fibonacci word A003849.

Original entry on oeis.org

2, 1, 3, 2, 1, 5, 4, 3, 2, 1, 8, 7, 6, 5, 4, 3, 2, 1, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13

Offset: 0

Clark Kimberling, Aug 14 2014

			reverse(s(0),...,s(6)) = reverse(0,1,0,0,1,0,1) = (1,0,1,0,0,1,0)
first repeats in A003849 at (s(4),...,s(10)), so that a(6) = 4.

Cf. A003849, A000045, A246104, A241422.

s = Flatten[Nest[{#, #[[1]]} &, {0, 1}, 12]]; b[m_, n_] := b[m, n] = Take[s, {m, n}]; t = -1 + Flatten[Table[Select[Range[2, 1600], b[#, n + # - 1] == Reverse[b[1, n]] &, 1], {n, 1, 120}]]

Concatenation of blocks (F(k), F(k - 1), ..., F(3), F(2)) beginning with k = 3, where F = A000045 (Fibonacci numbers).

cp's OEIS Frontend

A256654 Least Fibonacci number not less than n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula