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
Keywords
Programs
-
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 *)