

A153032


Positions of digits of Pi that are divisible by 3.


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



