A023483 a(n) = b(n) + d(n), where b(n) = (n-th Fibonacci number > 1) and d(n) = (n-th non-Fibonacci number).

6, 9, 12, 17, 23, 32, 46, 69, 104, 160, 250, 395, 629, 1007, 1619, 2607, 4205, 6790, 10972, 17738, 28685, 46397, 75055, 121424, 196450, 317844, 514264, 832076, 1346306, 2178347, 3524617, 5702927, 9227506, 14930394, 24157860, 39088213

Offset

1,1

Links

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

Formula

a(n) = A000045(n+2)+A001690(n). - R. J. Mathar, Feb 01 2019

Mathematica

nn = 36; b = Table[Fibonacci[n + 2], {n, nn}]; d = Take[Complement[Range[2, 2*nn], b], nn]; b + d (* T. D. Noe, Mar 09 2011 *)
fibs=Select[Fibonacci[Range[60]], #>1&]; nonfibs=Take[Complement[Range[4, 75], fibs], Length[fibs]]; Total/@Thread[{fibs, nonfibs}]  (* Harvey P. Dale, Mar 10 2011 *)

Crossrefs

Sequence in context: A084806 A020938 A136360 * A023042 A128245 A117714

Adjacent sequences: A023480 A023481 A023482 * A023484 A023485 A023486

Keyword

nonn

Author

Clark Kimberling.

Status

approved