A030318 Position of n-th 0 in A030317.
5, 11, 12, 15, 20, 27, 28, 29, 32, 33, 37, 39, 42, 48, 49, 53, 59, 67, 68, 69, 70, 73, 74, 75, 79, 80, 82, 85, 86, 91, 93, 94, 97, 99, 103, 106, 109, 116, 117, 118, 122, 123, 128, 130, 134, 141, 142, 147, 154, 163, 164, 165, 166, 167, 170
Offset: 1
Keywords
Crossrefs
Cf. A030317.
Programs
-
Mathematica
Flatten[Position[Flatten[Table[IntegerDigits[2n-1,2],{n,50}]],0]] (* Harvey P. Dale, Aug 06 2013 *)