|
Search: id:A138345
|
|
|
| A138345 |
|
a(n) = -1 if (n+1)-st decimal digit of 1/Pi is smaller than n-th digit of 1/Pi, 0 if they are equal, 1 if larger. |
|
+0
5
|
|
| -1, 1, -1, -1, 1, -1, 0, -1, -1, 1, -1, 1, 1, -1, 1, 1, -1, 1, -1, 1, 0, -1, 1, -1, -1, 1, 1, -1, 1, -1, 1, 1, -1, -1, 1, -1, 1, 1, 1, -1, 1, -1, 1, -1, 1, 1, -1, 1, -1, 1, 1, 1, -1, -1, 1, -1, -1, 0, 1, 1, 1, 0, -1, 0, 1, 0, 1, -1, 1, 1, -1, -1, 1, 1, -1, 1, -1, -1, 1, -1, 1, 1, -1, 1, 0, 1, -1, -1, 1, 0, -1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, 1, 1
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
b = RealDigits[N[1/Pi, 1000]]; b = First[b]; a = {}; Do[k = b[[n + 1]] - b[[n]]; If[k < 0, AppendTo[a, -1], If[k == 0, AppendTo[a, 0], AppendTo[a, 1]]], {n, 1, 999}]; a (*Artur Jasinski*)
|
|
CROSSREFS
|
Cf. A138344, A138346, A138347.
Sequence in context: A089509 A157972 A124897 this_sequence A014590 A015171 A014562
Adjacent sequences: A138342 A138343 A138344 this_sequence A138346 A138347 A138348
|
|
KEYWORD
|
sign,base
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Mar 16 2008
|
|
|
Search completed in 0.002 seconds
|
