A085197 Positions of ones in A007001. Repeating part in each sub-permutation A082315[A014137(n-1)..A014138(n-1)] normalized to begin from 1.

1, 3, 6, 8, 11, 15, 17, 20, 22, 25, 29, 31, 34, 38, 43, 45, 48, 50, 53, 57, 59, 62, 64, 67, 71, 73, 76, 80, 85, 87, 90, 92, 95, 99, 101, 104, 108, 113, 115, 118, 122, 127, 133, 135, 138, 140, 143, 147, 149, 152, 154, 157, 161, 163, 166, 170, 175, 177, 180, 182, 185, 189

Offset

1,2

Comments

From the second term 3 onward also one more than the partial sums of A076050.

Links

Paolo Xausa, Table of n, a(n) for n = 1..16796

Antti Karttunen, Notes concerning A080237-tree and related sequences.

Formula

a(n) = A080336(n-1) + n = A082854(A082315(A072795(A081291(n-1)))).

a(n) = n if n < 2, otherwise a(n-1)+A076050(n-1).

Mathematica

PositionIndex[Nest[Flatten[Map[Range[#+1] &, #]] &, {1}, 6]][[1]] (* Paolo Xausa, Mar 04 2024 *)

Crossrefs

Cf. A085196. First column of A085180.

Sequence in context: A368642 A356395 A276573 * A164910 A276583 A135736

Adjacent sequences: A085194 A085195 A085196 * A085198 A085199 A085200

Keyword

nonn

Author

Antti Karttunen, Jun 14 2003. Proposed by Wouter Meeussen Mar 15 2003.

Status

approved