|
|
A023485
|
|
a(n) = b(n) + d(n), where b(n) = (n-th Lucas number A000204 > 1) and d(n) = (n-th non-Fibonacci number).
|
|
0
|
|
|
7, 10, 14, 20, 28, 40, 59, 90, 138, 215, 339, 539, 862, 1384, 2229, 3594, 5802, 9374, 15153, 24503, 39631, 64108, 103712, 167792, 271475, 439237, 710682, 1149887, 1860535, 3010387, 4870886, 7881236, 12752084, 20633281, 33385325, 54018565, 87403848, 141422370
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
nn=40; Module[{lcs=LucasL[Range[2, nn+1]], nf, len}, nf=Complement[ Range[ nn+ 10], Fibonacci[Range[nn]]]; len=Min[Length[lcs], Length[nf]]; Total/@ Thread[ {Take[lcs, len], Take[nf, len]}]] (* Harvey P. Dale, Mar 16 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|