OFFSET
1,1
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
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