A286326 Least possible maximum of the two initial terms of a Fibonacci-like sequence containing n.
0, 1, 1, 1, 2, 1, 2, 2, 1, 3, 2, 2, 3, 1, 3, 3, 2, 4, 2, 3, 4, 1, 4, 3, 3, 5, 2, 4, 4, 2, 5, 3, 4, 5, 1, 5, 4, 3, 6, 3, 5, 5, 2, 6, 4, 4, 6, 2, 6, 5, 3, 7, 4, 5, 6, 1, 7, 5, 4, 7, 3, 6, 6, 3, 8, 5, 5, 7, 2, 7, 6, 4, 8, 4, 6, 7, 2, 8, 6, 5, 8, 3, 7, 7, 4, 9, 5
Offset: 0
Examples
See illustration of the first terms in Links section.
Links
- Rémy Sigrist, Table of n, a(n) for n = 0..10000
- Rémy Sigrist, Scatterplot of the first 100000 terms
- Rémy Sigrist, Illustration of the first terms
- Rémy Sigrist, C program for A286326
- Rémy Sigrist, Colored scatterplot of (n, a(n)) for n = 1..100000 (where the color is function of the least k > 0 such that a(n)/n >= A000045(k)/A001654(k))
Programs
-
Mathematica
{0}~Join~Table[Module[{a = 0, b = 1, s = {}}, While[a <= n, AppendTo[s, Flatten@ NestWhileList[{#2, #1 + #2} & @@ # &, {a, b}, Last@ # < n &]]; If[a + b >= n, a++; b = 1, b++]]; Min@ Map[Max@ #[[1 ;; 2]] &, Select[s, MemberQ[#, n] &]]], {n, 86}] (* Michael De Vlieger, May 10 2017 *)
Comments