A348331 Lexicographically earliest sequence of positive integers such that for any n > 0, the sum of the indices k < n such that a(k) = a(n) is less than or equal to n.

1, 1, 1, 2, 2, 1, 3, 3, 2, 4, 4, 1, 5, 5, 3, 6, 6, 2, 7, 7, 4, 8, 8, 1, 9, 9, 5, 10, 10, 3, 11, 11, 6, 12, 12, 2, 13, 13, 7, 14, 14, 4, 15, 15, 8, 16, 16, 1, 17, 17, 9, 18, 18, 5, 19, 19, 10, 20, 20, 3, 21, 21, 11, 22, 22, 6, 23, 23, 12, 24, 24, 2, 25, 25, 13

Offset

1,4

Comments

Every integer appears infinitely many times.

See table A348357 where the integers are arranged according to the present sequence.

Links

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

Formula

a(n) = 1 iff n belongs to A098011.

Prog

(PARI) s=vector(25); for (n=1, 75, for (k=1, oo, if (s[k]<=n, print1 (k", "); s[k]+=n; break)))

Crossrefs

Cf. A098011, A348330, A348356, A348357.

Sequence in context: A291564 A029266 A325035 * A035387 A242308 A011373

Adjacent sequences: A348328 A348329 A348330 * A348332 A348333 A348334

Keyword

nonn

Author

Rémy Sigrist, Oct 13 2021

Status

approved