|
|
A373307
|
|
Binary digits of Pi selected by stepping forward d+1 places at digit d, i.e., by skipping the next d places.
|
|
1
|
|
|
1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Are the digits uniformly distributed? Are all digit sequences uniformly distributed?
|
|
LINKS
|
|
|
FORMULA
|
a(n) = the (n+a(1)+a(2)+...+a(n-1))-th digit in the binary expansion of Pi.
|
|
EXAMPLE
|
The sequence starts with the first digit of the binary expansion of Pi, which is 1. The next term is the digit 1+1 places after this, namely, 0, and so on.
The digits selected from Pi begin
Pi=1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, ...
^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
|
|
MATHEMATICA
|
a={1}; s=1; For[n=2, n<=100, n++, s+=Part[a, n-1]+1; digits=First[RealDigits[Pi, 2, s]]; AppendTo[a, Part[digits, s]]]; a
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|