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,1

Links

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

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

Cf. A000045, A090946.

Cf. A023491, A023493, A023494.

Sequence in context: A143803 A284894 A020497 * A032375 A089556 A225495

Adjacent sequences: A023487 A023488 A023489 * A023491 A023492 A023493

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected by Clark Kimberling, Jan 29 2019

Status

approved