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,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Example

log(2) = [0], [1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, ...

Mathematica

Position[RealDigits[Log[2], 2, 200][[1]], 1]//Flatten (* Harvey P. Dale, Aug 29 2016 *)

Prog

(PARI) v=binary(log(2))[2]; for(i=1, #v, if(v[i], print1(i, ", ")));

Crossrefs

Cf. A002162, A092855.

Sequence in context: A345223 A185726 A152520 * A191193 A327185 A047343

Adjacent sequences: A239973 A239974 A239975 * A239977 A239978 A239979

Keyword

nonn,base

Author

Ralf Stephan, Mar 30 2014

Status

approved