A023495 a(n) = b(n) + d(n), where b(n) = (n-th Lucas number > 3) and d(n) = (n-th non-Lucas number).
6, 12, 17, 26, 38, 57, 88, 136, 213, 337, 537, 860, 1383, 2227, 3592, 5800, 9372, 15151, 24501, 39629, 64106, 103710, 167791, 271474, 439236, 710680, 1149885, 1860533, 3010385, 4870884, 7881234, 12752082, 20633279, 33385323, 54018563, 87403846, 141422368
Offset: 0
Keywords
Programs
-
Mathematica
Module[{nn=40,lnos,non,len},lnos=LucasL[Range[nn]];non= Complement[ Range[ 2*nn],lnos];len=Min[Length[lnos]-2,Length[non]];Total/@ Thread[ {Take[ lnos, {3,len+2}],Take[non,len]}]] (* Harvey P. Dale, Jul 29 2015 *)
Formula
Extensions
Corrected and extended by Harvey P. Dale, Jul 29 2015