A022809 a(n) = F(n+3) + c(n) where F(k) is k-th Fibonacci number and c(n) is n-th number that is 1 or 2 or is not a Fibonacci number.

4, 7, 12, 19, 28, 43, 65, 100, 156, 247, 392, 626, 1004, 1615, 2603, 4201, 6787, 10969, 17735, 28682, 46394, 75052, 121421, 196447, 317841, 514260, 832072, 1346302, 2178344, 3524614, 5702924, 9227503

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

With[{nn=40}, fibs=Fibonacci[Range[nn]]; nonf=Take[Join[{1, 2}, Complement[Range[nn+Length[fibs]], fibs]], Length[fibs]-3]; Total/@Thread[{Drop[fibs, 3], nonf}]] (* Harvey P. Dale, Sep 30 2011 *)

Crossrefs

Sequence in context: A097536 A293829 A344421 * A297554 A188554 A020732

Adjacent sequences: A022806 A022807 A022808 * A022810 A022811 A022812

Keyword

nonn

Author

Clark Kimberling

Status

approved