A023485 a(n) = b(n) + d(n), where b(n) = (n-th Lucas number A000204 > 1) and d(n) = (n-th non-Fibonacci number).

7, 10, 14, 20, 28, 40, 59, 90, 138, 215, 339, 539, 862, 1384, 2229, 3594, 5802, 9374, 15153, 24503, 39631, 64108, 103712, 167792, 271475, 439237, 710682, 1149887, 1860535, 3010387, 4870886, 7881236, 12752084, 20633281, 33385325, 54018565, 87403848, 141422370

Offset

1,1

Links

Table of n, a(n) for n=1..38.

Formula

a(n) = A000204(n+1) + A001690(n), n >= 1. - N. J. A. Sloane, Mar 16 2013

Mathematica

nn=40; Module[{lcs=LucasL[Range[2, nn+1]], nf, len}, nf=Complement[ Range[ nn+ 10], Fibonacci[Range[nn]]]; len=Min[Length[lcs], Length[nf]]; Total/@ Thread[ {Take[lcs, len], Take[nf, len]}]] (* Harvey P. Dale, Mar 16 2013 *)

Crossrefs

Cf. A001690, A000204.

Sequence in context: A020752 A134302 A229306 * A020721 A015782 A336089

Adjacent sequences: A023482 A023483 A023484 * A023486 A023487 A023488

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected and extended by Harvey P. Dale, Mar 16 2013

Offset corrected, cross-references added by N. J. A. Sloane, Mar 16 2013

Status

approved