login
A023490
n-th non-Lucas number plus Fibonacci(n + 1).
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,1
LINKS
FORMULA
a(n) = A000045(n + 2) + A090946(n + 2).
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 *)
CROSSREFS
KEYWORD
nonn
EXTENSIONS
Corrected by Clark Kimberling, Jan 29 2019
STATUS
approved