|
|
A023495
|
|
a(n) = b(n) + d(n), where b(n) = (n-th Lucas number > 3) and d(n) = (n-th non-Lucas number).
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|