%I #18 Jun 08 2022 16:14:24
%S 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 18,18,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,47,47,47,
%U 47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47
%N Greatest Lucas number that does not exceed n.
%e The Lucas numbers, beginning with 1, are 1, 3, 4, 7, 11, 18, ..., so that a(5) = 4.
%t Flatten[Map[ConstantArray[LucasL[#], LucasL[# - 1]] &, Range[15]]] (* _Peter J. C. Moses_, April 30 2022 *)
%o (Python)
%o from itertools import islice
%o def A352717_gen(): # generator of terms
%o a, b = 1, 3
%o while True:
%o yield from (a,)*(b-a)
%o a, b = b, a+b
%o A352717_list = list(islice(A352717_gen(),40)) # _Chai Wah Wu_, Jun 08 2022
%Y Cf. A000032, A000204, A087172, A130241, A352718.
%K nonn
%O 1,3
%A _Clark Kimberling_, Apr 01 2022
|