A239976 Positions of ones in binary representation of log(2).
1, 3, 4, 8, 10, 11, 12, 15, 20, 22, 23, 24, 25, 26, 27, 28, 30, 31, 32, 33, 34, 36, 40, 41, 42, 45, 46, 47, 48, 50, 51, 52, 53, 56, 57, 59, 61, 63, 64, 65, 66, 69, 72, 73, 74, 75, 79, 80, 81, 83, 84, 87, 88, 89, 92, 93, 103, 104, 105, 106, 107, 108, 111, 113, 114, 115, 116, 118, 119, 121, 123
Offset: 1
Examples
log(2) = [0], [1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, ...
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Position[RealDigits[Log[2],2,200][[1]],1]//Flatten (* Harvey P. Dale, Aug 29 2016 *)
-
PARI
v=binary(log(2))[2]; for(i=1,#v,if(v[i],print1(i,",")));