A030658 1 iff n-th digit of Pi is >= (n+1)st digit.

1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0

Offset

1,1

Comments

a(n) = if A095916(n) <= 0 then 1 else 0. - Reinhard Zumkeller, Mar 12 2015

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

Index entries for sequences related to the number Pi

Mathematica

If[First[#]>=Last[#], 1, 0]&/@Partition[RealDigits[Pi, 10, 130][[1]], 2, 1] (* Harvey P. Dale, Jul 25 2011 *)

Prog

(Haskell)
a030658 = fromEnum . (<= 0) . a095916  -- Reinhard Zumkeller, Mar 12 2015
(Python)
import sympy as sp
length = 100
[int(x>=y) for l in [str(sp.N(sp.pi/10, length))[2:]] for x, y in zip(l[:-1], l[1:])]
# Nicholas Stefan Georgescu, Feb 27 2023

Crossrefs

Cf. A095916, A193496, A000796.

Sequence in context: A266611 A286752 A320167 * A187950 A112539 A104104

Adjacent sequences: A030655 A030656 A030657 * A030659 A030660 A030661

Keyword

nonn,base,easy,nice

Author

Maghraoui Abdelkader

Extensions

More terms from David Radcliffe

Status

approved