|
%I #9 Feb 28 2014 03:18:25
%S 1,6,8,10,13,15,16,18,21,23,25,26,28,31,33,39,42,43,44,45,46,47,51,55,
%T 56,59,63,65,66,70,72,73,76,78,80,81,83,86,87,92,98,99,101,107,109,
%U 112,116,117,118,119,122,123,124,128,129,130,133,138,143,145,147,160,165
%N Positions of digits of Pi that are divisible by 3.
%t Flatten[Position[ Map[If[Divisible[ #, 3], "*", # ] &, RealDigits[ N[Pi, 100]][[1]]], "*"]]
%t Select[ Range@ 169, Mod[ RealDigits[Pi, 10, 169][[1, # ]], 3] == 0 &] (* _Robert G. Wilson v_, Dec 21 2008 *)
%Y Cf. A000796.
%K nonn,base
%O 1,2
%A _Julio Cesar de la Yncera_, Dec 17 2008
%E More concise Mathematica coding added and sequence extended by _Robert G. Wilson v_, Dec 21 2008
%E Name edited by _Jon E. Schoenfield_, Feb 27 2014
|
