OFFSET
0,4
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..10000
FORMULA
MATHEMATICA
lazy = Select[IntegerDigits[Range[400], 2], SequenceCount[#, {0, 0}] == 0 &]; t = Total[# * Reverse@LucasL[Range[0, Length[#] - 1]]] & /@ lazy; Join[{0}, Plus@@@ lazy[[TakeWhile[Flatten[FirstPosition[t, #] & /@ Range[Max[t]]], NumberQ]]]] (* Amiram Eldar, Feb 17 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Casey Mongoven, Jun 29 2007
EXTENSIONS
a(0) and more terms from Amiram Eldar, Feb 17 2022
STATUS
approved