|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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]])] (from Robert G. Wilson v Nov 15 2003)
|
|
|
CROSSREFS
| Sequence in context: A202108 A104108 A190610 * A168553 A068430 A141738
Adjacent sequences: A089021 A089022 A089023 * A089025 A089026 A089027
|
|
|
KEYWORD
| nonn,easy,base
|
|
|
AUTHOR
| Felix Tubiana (fat2(AT)columbia.edu), Nov 11 2003
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com) and Ray Chandler (rayjchandler(AT)sbcglobal.net), Nov 15 2003
|
| |
|
|
