A131341 Number of 0's in maximal Lucas representation (A130311) of n.

1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 2, 2, 1, 1, 1, 1, 0, 2, 2, 2, 1, 2, 2, 1, 1, 1, 1, 0, 3, 3, 2, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 1, 1, 1, 1, 0, 3, 3, 3, 2, 3, 3, 2, 2, 2, 2, 1, 3, 3, 2, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 1, 1, 1, 1, 0, 4, 4, 3, 3, 3, 3, 2, 3, 3, 3, 2, 3

Offset

1,11

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Ron Knott, Using the Fibonacci numbers to represent whole numbers.

Mathematica

lazy = Select[IntegerDigits[Range[400], 2], SequenceCount[#, {0, 0}] == 0 &]; t = Total[#*Reverse@LucasL[Range[0, Length[#] - 1]]] & /@ lazy; Plus @@@ (1 - lazy[[TakeWhile[Flatten[FirstPosition[t, #] & /@ Range[Max[t]]], NumberQ]]]) (* Amiram Eldar, Jul 05 2025 *)

Crossrefs

Cf. A131340, A000032, A102364.

Sequence in context: A085769 A237422 A102552 * A124034 A332029 A211312

Adjacent sequences: A131338 A131339 A131340 * A131342 A131343 A131344

Keyword

nonn

Author

Casey Mongoven, Jun 29 2007, corrected Mar 23 2008

Extensions

More terms from Amiram Eldar, Jul 05 2025

Status

approved