A023487 a(n) = b(n) + d(n), where b(n) = (n-th Lucas number > 3) and d(n) = (n-th non-Fibonacci number).

8, 13, 18, 27, 39, 58, 88, 137, 214, 338, 538, 861, 1383, 2227, 3593, 5801, 9373, 15152, 24502, 39630, 64107, 103711, 167791, 271474, 439236, 710680, 1149886, 1860534, 3010386, 4870885, 7881235, 12752083, 20633280, 33385324, 54018564, 87403847, 141422369

Offset

0,1

Links

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

Formula

a(n) = A000032(n+3) + A001690(n+1). - R. J. Mathar, Feb 01 2019

Mathematica

z = 10; f = Table[Fibonacci[n], {n, 2, z}]; c = Complement[Range[Max[f]], f];
t = Table[LucasL[n + 2], {n, 1, Length[c]}]; c + t

Crossrefs

Cf. A000032, A000045, A001690.

Sequence in context: A187227 A224251 A006619 * A045636 A214723 A022954

Adjacent sequences: A023484 A023485 A023486 * A023488 A023489 A023490

Keyword

nonn

Author

Clark Kimberling

Extensions

Edited by Clark Kimberling, Dec 02 2017

Status

approved