%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_