OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
lazy = Select[IntegerDigits[Range[10^6], 2], SequenceCount[#, {0, 0}] == 0 &]; t = Total[#*Reverse@LucasL[Range[0, Length[#] - 1]]] & /@ lazy; s = FromDigits /@ lazy[[TakeWhile[Flatten[FirstPosition[t, #] & /@ Range[Max[t]]], NumberQ]]]; SequencePosition[Divisible[Range[Length[s]], Plus @@@ IntegerDigits[s]], {True, True}][[;; , 1]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Feb 17 2022
STATUS
approved