|
Search: id:A089024
|
|
|
| A089024 |
|
1's separated by d(n) 0's, where d(n) = n-th digit of decimal expansion of Pi. |
|
+0
1
|
|
| 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; listen)
|
|
|
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: A121262 A102243 A104108 this_sequence A068430 A141738 A141728
Adjacent sequences: A089021 A089022 A089023 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
