A023496 a(n) = b(n) + d(n), where b(n) = (n-th Fibonacci number > 2) and d(n) = (n-th number that is 1 or is not a Lucas number).

4, 7, 13, 19, 29, 43, 65, 101, 157, 247, 392, 626, 1004, 1616, 2604, 4202, 6787, 10969, 17735, 28682, 46394, 75052, 121421, 196448, 317842, 514261, 832073, 1346303, 2178344, 3524614, 5702924, 9227503, 14930391, 24157857, 39088210

Offset

0,1

Links

Table of n, a(n) for n=0..34.

Formula

a(n) = A000045(n+4)+A090946(n+1), n>0. - R. J. Mathar, Feb 01 2019

Mathematica

Module[{nn=50, fibs, nlucs, len}, fibs=Fibonacci[Range[4, nn+4]]; nlucs=Join[ {1}, Complement[Range[nn], LucasL[Range[nn/5]]]]; len=Min[Length[fibs], Length[nlucs]]; Total/@Thread[{Take[fibs, len], Take[nlucs, len]}]] (* Harvey P. Dale, Aug 09 2013 *)

Crossrefs

Sequence in context: A238327 A243811 A194073 * A191868 A176003 A216880

Adjacent sequences: A023493 A023494 A023495 * A023497 A023498 A023499

Keyword

nonn

Author

Clark Kimberling

Status

approved