OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
The first 10 terms are:
n a(n) A130311(a(n))
----------------------
1 0 0
2 2 1
3 3 11
4 5 101
5 6 111
6 10 1111
7 12 10101
8 14 11011
9 17 11111
10 20 101101
MATHEMATICA
lazy = Select[IntegerDigits[Range[6000], 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}, Position[s, _?PalindromeQ] // Flatten]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Feb 17 2022
STATUS
approved