|
%I #11 Jun 05 2016 10:19:54
%S 1,2,3,4,6,7,8,9,10,13,14,16,17,18,19,21,22,23,24,25,26,30,31,34,35,
%T 36,38,40,41,43,44,45,46,47,50,51,52,54,55,56,57,58,60,61,62,63,64,65,
%U 66,71,72,76,77,78,81,83,84,87,88,89,90,92,95
%N Position of n-th 1 in A030317.
%H Ivan Neretin, <a href="/A030319/b030319.txt">Table of n, a(n) for n = 1..10000</a>
%t Flatten@Position[Flatten@Table[IntegerDigits[2 n - 1, 2], {n, 21}], 1] (* _Ivan Neretin_, Jun 05 2016 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
