|
%I #13 Mar 04 2024 20:19:18
%S 1,3,6,8,11,15,17,20,22,25,29,31,34,38,43,45,48,50,53,57,59,62,64,67,
%T 71,73,76,80,85,87,90,92,95,99,101,104,108,113,115,118,122,127,133,
%U 135,138,140,143,147,149,152,154,157,161,163,166,170,175,177,180,182,185,189
%N Positions of ones in A007001. Repeating part in each sub-permutation A082315[A014137(n-1)..A014138(n-1)] normalized to begin from 1.
%C From the second term 3 onward also one more than the partial sums of A076050.
%H Paolo Xausa, <a href="/A085197/b085197.txt">Table of n, a(n) for n = 1..16796</a>
%H Antti Karttunen, <a href="/A080237/a080237tree.txt">Notes concerning A080237-tree and related sequences.</a>
%F a(n) = A080336(n-1) + n = A082854(A082315(A072795(A081291(n-1)))).
%F a(n) = n if n < 2, otherwise a(n-1)+A076050(n-1).
%t PositionIndex[Nest[Flatten[Map[Range[#+1] &, #]] &, {1}, 6]][[1]] (* _Paolo Xausa_, Mar 04 2024 *)
%Y Cf. A085196. First column of A085180.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jun 14 2003. Proposed by _Wouter Meeussen_ Mar 15 2003.
|
