OFFSET
0,1
MATHEMATICA
nn=40; Total/@Partition[With[{luc=Rest[LucasL[Range[nn]]]}, Riffle[ luc, Insert[ Complement[ Range[nn+Count[luc, _?(#<nn&)]], luc], 3, 3]]], 2] (* Harvey P. Dale, Jul 12 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved