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
Keywords
Links
- Clark Kimberling, Table of n, a(n) for n = 0..1000
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 *)
Extensions
Corrected by Clark Kimberling, Jan 29 2019