A023490 n-th non-Lucas number plus Fibonacci(n + 1).

3, 7, 9, 13, 17, 23, 33, 47, 69, 104, 160, 250, 396, 630, 1008, 1619, 2607, 4205, 6790, 10972, 17738, 28685, 46398, 75056, 121425, 196451, 317845, 514264, 832076, 1346306, 2178347, 3524617, 5702927, 9227506, 14930394, 24157860, 39088213, 63246031, 102334201

Offset: 0

Author

Clark Kimberling

Keywords

• nonn

Links

• Clark Kimberling, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A000045, A090946.

Cf. A023491, A023493, A023494.

Programs

Mathematica

tarLen = 35; fiboList = Fibonacci[Range[2, tarLen + 1]]; threshold = fiboList[[-1]]; fiboList + Take[Complement[Range[threshold], LucasL[Range[tarLen]]], tarLen] (* Alonso del Arte, Jan 28 2019 *)
Table[Fibonacci[n+2] + Floor[1/2 - LambertW[-1, -Log[GoldenRatio]/GoldenRatio^(n + 1/2)] / Log[GoldenRatio]], {n, 0, 50}] (* Vaclav Kotesovec, Jan 30 2019 *)

Formula

a(n) = A000045(n + 2) + A090946(n + 2).

Extensions

Corrected by Clark Kimberling, Jan 29 2019