A174000 -id:A174000 - 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.

A173999 Successive positions of odd digits in decimal expansion of Pi (position 0 means 3 before comma or decimal point).

Original entry on oeis.org

0, 1, 3, 4, 5, 8, 9, 10, 12, 13, 14, 15, 17, 24, 25, 27, 29, 30, 31, 37, 38, 39, 40, 42, 43, 44, 45, 46, 47, 48, 49, 51, 55, 56, 58, 61, 62, 64, 66, 68, 79, 80, 86, 90, 91, 94, 95, 96, 99, 100, 103, 109, 110, 111, 115, 120, 122, 123, 129, 130, 131, 133, 137, 138, 139, 141

Offset: 0

Artur Jasinski, Mar 05 2010

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

Cf. A000796, A174000.

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]],?OddQ]-1]  (* _Harvey P. Dale, Apr 19 2011 *)

Edited by Charles R Greathouse IV, Aug 02 2010

Definition clarified by Harvey P. Dale, Apr 01 2019

cp's OEIS Frontend

A030657 Parity of digits of Pi.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

Extensions