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

Author

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

Keywords

• nonn

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.

Crossrefs

Cf. A085196. First column of A085180.

Programs

Mathematica

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

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).