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,2

Links

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

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

Crossrefs

Cf. A000796.

Sequence in context: A184111 A330976 A181764 * A086822 A048943 A255429

Adjacent sequences: A153029 A153030 A153031 * A153033 A153034 A153035

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

Name edited by Jon E. Schoenfield, Feb 27 2014

Status

approved