login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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. 4
-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; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

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*)

Which[#[[2]]<#[[1]], -1, #[[2]]==#[[1]], 0, True, 1]&/@ Partition[ RealDigits[ 1/Pi, 10, 110][[1]], 2, 1] (* Harvey P. Dale, Aug 09 2013 *)

CROSSREFS

Cf. A049541, A138344.

Sequence in context: A157972 A124897 A071035 * A014590 A015171 A014562

Adjacent sequences:  A138342 A138343 A138344 * A138346 A138347 A138348

KEYWORD

sign,base

AUTHOR

Artur Jasinski, Mar 16 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 25 19:58 EDT 2019. Contains 323576 sequences. (Running on oeis4.)