OFFSET
1,3
COMMENTS
In the first 2^28 binary digits, 134220460 are "0" and 134214996 are "1". - Robert G. Wilson v, Jun 09 2010
This sequence ignores bits in the integer part of the binary expansion of Pi.
EXAMPLE
3 consecutive 0's are first found beginning at the 7th position in Pi's binary expansion, so the third term in this sequence is 7.
MATHEMATICA
pib = ToString@ FromDigits[ RealDigits[Pi - 3, 2, 2^26][[1]]]; f[n_] := 3 + StringPosition[ pib, ToString[10^n], 1][[1, 1]]; f[1] = f[2] = 1; Array[f, 27] (* Robert G. Wilson v, Jun 09 2010 *)
With[{p=RealDigits[Pi, 2, 1715*10^5][[1]]}, Flatten[Table[SequencePosition[ p, PadRight[{}, n, 0], 1], {n, 27}], 1][[All, 1]]-2] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 26 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Will Nicholes, Jun 06 2010
EXTENSIONS
a(17)-a(27) from Robert G. Wilson v, Jun 09 2010
STATUS
approved