|
%I #14 Jul 04 2017 16:08:29
%S 1,3,4,8,10,11,12,15,20,22,23,24,25,26,27,28,30,31,32,33,34,36,40,41,
%T 42,45,46,47,48,50,51,52,53,56,57,59,61,63,64,65,66,69,72,73,74,75,79,
%U 80,81,83,84,87,88,89,92,93,103,104,105,106,107,108,111,113,114,115,116,118,119,121,123
%N Positions of ones in binary representation of log(2).
%H G. C. Greubel, <a href="/A239976/b239976.txt">Table of n, a(n) for n = 1..1000</a>
%e log(2) = [0], [1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, ...
%t Position[RealDigits[Log[2],2,200][[1]],1]//Flatten (* _Harvey P. Dale_, Aug 29 2016 *)
%o (PARI) v=binary(log(2))[2]; for(i=1,#v,if(v[i],print1(i,",")));
%Y Cf. A002162, A092855.
%K nonn,base
%O 1,2
%A _Ralf Stephan_, Mar 30 2014
|
