|
%I #14 May 01 2013 21:11:53
%S 1,2,1,3,2,4,1,3,5,2,4,1,6,3,5,2,7,4,1,6,3,8,5,2,7,4,1,9,6,3,8,5,2,10,
%T 7,4,1,9,6,3,11,8,5,2,10,7,4,12,1,9,6,3,11,8,5,13,2,10,7,4,12,1,9,6,
%U 14,3,11,8,5,13,2,10,7,15,4,12,1,9,6,14,3,11,8,16,5,13,2,10,7,15,4,12,1,9,17
%N Signature sequence for log(3)/log(2).
%C Not the same as A191475. - _Zak Seidov_, Aug 31 2012
%H Franklin T. Adams-Watters, <a href="/A158456/b158456.txt">Table of n, a(n) for n=1..1000</a>
%F a(n) = A022328(n) + 1.
%t Take[Transpose[Sort[Flatten[Table[{i + j*(Log[3]/Log[2]), i}, {i, 17}, {j, 12}], 1], #1[[1]] < #2[[1]] &]][[2]], 100] (* _Robert G. Wilson v_, Aug 20 2012 *)
%Y Cf. A022328, A134583, A191475.
%K nonn
%O 1,2
%A _Franklin T. Adams-Watters_, Mar 19 2009
%E Added 1 to all the terms so as to match the b-file. - _N. J. A. Sloane_, Aug 31 2009
|
