This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A352717 #20 Jun 27 2025 22:01:50 %S A352717 1,1,3,4,4,4,7,7,7,7,11,11,11,11,11,11,11,18,18,18,18,18,18,18,18,18, %T A352717 18,18,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,47,47,47, %U A352717 47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47 %N A352717 Greatest Lucas number that does not exceed n. %e A352717 The Lucas numbers, beginning with 1, are 1, 3, 4, 7, 11, 18, ..., so that a(5) = 4. %t A352717 Flatten[Map[ConstantArray[LucasL[#], LucasL[# - 1]] &, Range[15]]] (* _Peter J. C. Moses_, Apr 30 2022 *) %o A352717 (Python) %o A352717 from itertools import islice %o A352717 def A352717_gen(): # generator of terms %o A352717 a, b = 1, 3 %o A352717 while True: %o A352717 yield from (a,)*(b-a) %o A352717 a, b = b, a+b %o A352717 A352717_list = list(islice(A352717_gen(),40)) # _Chai Wah Wu_, Jun 08 2022 %Y A352717 Cf. A000032, A000204, A087172, A130241, A352718. %K A352717 nonn %O A352717 1,3 %A A352717 _Clark Kimberling_, Apr 01 2022