A352717 Greatest Lucas number that does not exceed n.

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, 18, 18, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47

Offset

1,3

Links

Table of n, a(n) for n=1..67.

Example

The Lucas numbers, beginning with 1, are 1, 3, 4, 7, 11, 18, ..., so that a(5) = 4.

Mathematica

Flatten[Map[ConstantArray[LucasL[#], LucasL[# - 1]] &, Range[15]]] (* Peter J. C. Moses, April 30 2022 *)

Prog

(Python)
from itertools import islice
def A352717_gen(): # generator of terms
    a, b = 1, 3
    while True:
        yield from (a, )*(b-a)
        a, b = b, a+b
A352717_list = list(islice(A352717_gen(), 40)) # Chai Wah Wu, Jun 08 2022

Crossrefs

Cf. A000032, A000204, A087172, A130241, A352718.

Sequence in context: A304032 A022484 A361497 * A359807 A259884 A283972

Adjacent sequences: A352714 A352715 A352716 * A352718 A352719 A352720

Keyword

nonn

Author

Clark Kimberling, Apr 01 2022

Status

approved