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

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

Author

Artur Jasinski, Mar 05 2010

Keywords

• nonn
• base

Examples

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

Crossrefs

Cf. A000796, A173999.

Programs

Mathematica

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

Extensions

Edited by Charles R Greathouse IV, Aug 02 2010