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,1

Links

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

Formula

a(n) = A000204(n+3) + A090946(n+1). - Michel Marcus, Jul 30 2015

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

Crossrefs

Cf. A000204, A090946.

Essentially the same as A022802.

Sequence in context: A315710 A315711 A315712 * A315713 A315714 A315715

Adjacent sequences: A023492 A023493 A023494 * A023496 A023497 A023498

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected and extended by Harvey P. Dale, Jul 29 2015

Status

approved