A089024 1's separated by d(n) 0's, where d(n) = n-th digit of decimal expansion of Pi.

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

Links

Table of n, a(n) for n=1..105.

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 A353488 A232991

Adjacent sequences: A089021 A089022 A089023 * A089025 A089026 A089027

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