login
A023487
a(n) = b(n) + d(n), where b(n) = (n-th Lucas number > 3) and d(n) = (n-th non-Fibonacci number).
1
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
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
KEYWORD
nonn
EXTENSIONS
Edited by Clark Kimberling, Dec 02 2017
STATUS
approved