A153032 Positions of digits of Pi that are divisible by 3.

1, 6, 8, 10, 13, 15, 16, 18, 21, 23, 25, 26, 28, 31, 33, 39, 42, 43, 44, 45, 46, 47, 51, 55, 56, 59, 63, 65, 66, 70, 72, 73, 76, 78, 80, 81, 83, 86, 87, 92, 98, 99, 101, 107, 109, 112, 116, 117, 118, 119, 122, 123, 124, 128, 129, 130, 133, 138, 143, 145, 147, 160, 165

Offset: 1

Author

Julio Cesar de la Yncera, Dec 17 2008

Keywords

• nonn
• base

Crossrefs

Cf. A000796.

Programs

Mathematica

Flatten[Position[ Map[If[Divisible[ #, 3], "*", # ] &, RealDigits[ N[Pi, 100]][[1]]], "*"]]
Select[ Range@ 169, Mod[ RealDigits[Pi, 10, 169][[1, # ]], 3] == 0 &] (* Robert G. Wilson v, Dec 21 2008 *)

Extensions

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

Name edited by Jon E. Schoenfield, Feb 27 2014