A022799 a(n) = F(n+1) + c(n) where F(k) is k-th Fibonacci number and c(n) is n-th non-Fibonacci number.

5, 8, 10, 14, 18, 24, 33, 48, 70, 105, 161, 251, 396, 630, 1009, 1620, 2608, 4206, 6791, 10973, 17739, 28686, 46398, 75056, 121425, 196451, 317846, 514265, 832077, 1346307, 2178348, 3524618, 5702928, 9227507

Offset

1,1

Links

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

Mathematica

Module[{nn=35, f, c, len}, f=Rest[Fibonacci[Range[nn]]]; c=Complement[ Range[ Fibonacci[ nn]], f]; len=Min[Length[f], Length[c]]; Total/@Thread[ {Take[ f, len], Take[c, len]}]] (* Harvey P. Dale, Aug 23 2020 *)

Crossrefs

Sequence in context: A262707 A257046 A314382 * A314383 A229859 A329237

Adjacent sequences: A022796 A022797 A022798 * A022800 A022801 A022802

Keyword

nonn

Author

Clark Kimberling

Status

approved