login
Position of n-th 1 in A003137.
4

%I #10 Jul 13 2013 12:01:54

%S 1,3,5,6,7,12,15,18,20,21,24,25,27,28,29,30,31,33,36,38,39,47,52,55,

%T 56,58,65,69,73,76,77,81,83,85,87,88,89,91,93,97,100,101,105,106,109,

%U 110,112,113,114,117,118,119,121,122,123,124,125

%N Position of n-th 1 in A003137.

%C A003137(a(n)) = 1. - _Reinhard Zumkeller_, Feb 21 2013

%H Reinhard Zumkeller, <a href="/A030333/b030333.txt">Table of n, a(n) for n = 1..10000</a>

%o (Haskell)

%o import Data.List (elemIndices)

%o a030333 n = a030333_list !! (n-1)

%o a030333_list = map (+ 1) $ elemIndices 1 a003137_list

%o -- _Reinhard Zumkeller_, Feb 21 2013

%Y Cf. A030332, A030334, A030337.

%K nonn

%O 1,2

%A _Clark Kimberling_