A153030 Positions of even digits of Pi.

3, 7, 8, 12, 17, 19, 20, 21, 22, 23, 24, 27, 29, 33, 34, 35, 36, 37, 42, 51, 53, 54, 55, 58, 60, 61, 64, 66, 68, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 82, 83, 84, 85, 86, 88, 89, 90, 93, 94, 98, 99, 102, 103, 105, 106, 107, 108, 109, 113, 114, 115, 117, 118, 119, 120

Offset

1,1

Links

Table of n, a(n) for n=1..65.

Mathematica

Flatten[Position[ Map[If[EvenQ[ # ], "*", # ] &, RealDigits[ N[Pi, 100]][[1]]], "*"]]
Select[Range@140, EvenQ[RealDigits[Pi, 10, 140][[1, # ]]] &] (* Robert G. Wilson v, Dec 21 2008 *)

Crossrefs

Cf. A000796.

Sequence in context: A332572 A134258 A028972 * A031425 A063657 A108575

Adjacent sequences: A153027 A153028 A153029 * A153031 A153032 A153033

Keyword

nonn,base

Author

Julio Cesar de la Yncera, Dec 17 2008

Extensions

More concise Mathematica coding added and sequence extended by Robert G. Wilson v, Dec 21 2008

Status

approved