login
A089024
1's separated by d(n) 0's, where d(n) = n-th digit of decimal expansion of Pi.
0
1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0
OFFSET
1,1
EXAMPLE
a(7) = 1 because from the expansion of Pi = 3.14159... we get 3 -> 1000, 1 -> 10, 4 -> 10000, 1 -> 10 we can create the sequence 1000101000010 so the seventh element is 1.
MATHEMATICA
Flatten[ Table[ PadRight[{1}, # ]] & /@ (1 + RealDigits[Pi, 10, 19] [[1]])] (* Robert G. Wilson v, Nov 15 2003 *)
CROSSREFS
Cf. A000796.
Sequence in context: A287530 A104108 A267056 * A355688 A373154 A353488
KEYWORD
nonn,easy,base
AUTHOR
Felix Tubiana, Nov 11 2003
EXTENSIONS
More terms from Robert G. Wilson v and Ray Chandler, Nov 15 2003
STATUS
approved