A367951 Fixed point of the morphism 1 -> {1,3}, t -> {t-2,t,t,t+2} (for t > 1), starting from {1}.

1, 3, 1, 3, 3, 5, 1, 3, 1, 3, 3, 5, 1, 3, 3, 5, 3, 5, 5, 7, 1, 3, 1, 3, 3, 5, 1, 3, 1, 3, 3, 5, 1, 3, 3, 5, 3, 5, 5, 7, 1, 3, 1, 3, 3, 5, 1, 3, 3, 5, 3, 5, 5, 7, 1, 3, 3, 5, 3, 5, 5, 7, 3, 5, 5, 7, 5, 7, 7, 9, 1, 3, 1, 3, 3, 5, 1, 3, 1, 3, 3, 5, 1, 3, 3, 5, 3, 5, 5, 7

Offset

1,2

Comments

The first binomial(2*k,k) = A000984(k) terms (k >= 1) are the row lengths of the Christmas tree pattern (A367508) of order 2*k. See A367953 for the morphism that generates row lengths for odd orders.

References

Donald E. Knuth, The Art of Computer Programming, Vol. 4A: Combinatorial Algorithms, Part 1, Addison-Wesley, 2011, Section 7.2.1.6, exercise 76, pp. 479 and 800.

Links

Paolo Xausa, Table of n, a(n) for n = 1..12870 (first 8 iterations).

Mathematica

Nest[Flatten[ReplaceAll[#, {1->{1, 3}, t_/; t>1:>{t-2, t, t, t+2}}]]&, {1}, 5]

Prog

(Python)
from itertools import islice
def A367951_gen(): # generator of terms
    a, l = [1], 0
    while True:
        yield from a[l:]
        c = sum(([1, 3] if d==1 else [d-2, d, d, d+2] for d in a), start=[])
        l, a = len(a), c
A367951_list = list(islice(A367951_gen(), 30)) # Chai Wah Wu, Dec 26 2023

Crossrefs

Cf. A000984, A363718, A367508, A367953.

Sequence in context: A117572 A029153 A060241 * A337983 A332003 A145015

Adjacent sequences: A367948 A367949 A367950 * A367952 A367953 A367954

Keyword

nonn

Author

Paolo Xausa, Dec 05 2023

Status

approved