OFFSET
1,2
EXAMPLE
The first 10 terms are:
----------------------------------------
1 0 0 0
2 3 11 11
3 5 101 101
4 17 10001 11111
5 85 1010101 101101101
6 107 1101011 111010111
7 219 11011011 10110101101
8 1161 10010001001 11011111111011
9 1365 10101010101 101010101010101
10 1619 11001010011 101111010111101
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]]]; Join[{0}, Select[Position[s, _?PalindromeQ] // Flatten, PalindromeQ[IntegerDigits[#, 2]] &]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Feb 17 2022
STATUS
approved