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

Author

Maghraoui Abdelkader

Keywords

• nonn
• base
• easy

Links

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

Crossrefs

Cf. A173999, A174000.

Programs

Mathematica

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

Formula

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

Extensions

More terms from Simon Plouffe.