A173999 -id:A173999 - cp's OEIS frontend

A030657 Parity of digits of Pi.

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

Offset: 1

Maghraoui Abdelkader

Zak Seidov, Table of n, a(n) for n = 1..10000 [a(10000)=1 corrected by _Georg Fischer_, Jun 22 2020]

Cf. A173999, A174000.

s = First[RealDigits[N[Pi, 1000]]]; aa = {}; Do[If[OddQ[s[[n]]], AppendTo[aa, 1], AppendTo[aa, 0]], {n, 1, Length[s]}]; aa (* Artur Jasinski, Mar 05 2010 *)
s= RealDigits[N[Pi, 10000]][[1]];Table[{n,Mod[s[[n]],2]},{n,10000}](* this gives b-file *)(* Zak Seidov, Oct 05 2011*)

a(n) = A000035(A000796(n)). - Omar E. Pol, Oct 26 2013

More terms from Simon Plouffe.

A174000 Successive positions of even digits after comma in decimal expansion of Pi.

Original entry on oeis.org

2, 6, 7, 11, 16, 18, 19, 20, 21, 22, 23, 26, 28, 32, 33, 34, 35, 36, 41, 50, 52, 53, 54, 57, 59, 60, 63, 65, 67, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 81, 82, 83, 84, 85, 87, 88, 89, 92, 93, 97, 98, 101, 102, 104, 105, 106, 107, 108, 112, 113, 114, 116, 117, 118, 119

Offset: 1

Artur Jasinski, Mar 05 2010

			Pi=3,141592653589793...
2 is in this sequence because second digit after comma 4 is even.

Cf. A000796, A173999.

s = First[RealDigits[N[Pi, 1000]]]; aa = {}; Do[If[OddQ[s[[n]]], AppendTo[aa, n - 1]], {n, 1, Length[s]}]; aa (*Artur Jasinski*)
Flatten[Position[RealDigits[Pi,10,150][[1]],?EvenQ]]-1 (* _Harvey P. Dale, Sep 12 2017 *)

Edited by Charles R Greathouse IV, Aug 02 2010

cp's OEIS Frontend

A030657 Parity of digits of Pi.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

Extensions