This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A153032 #9 Feb 28 2014 03:18:25 %S A153032 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 A153032 56,59,63,65,66,70,72,73,76,78,80,81,83,86,87,92,98,99,101,107,109, %U A153032 112,116,117,118,119,122,123,124,128,129,130,133,138,143,145,147,160,165 %N A153032 Positions of digits of Pi that are divisible by 3. %t A153032 Flatten[Position[ Map[If[Divisible[ #, 3], "*", # ] &, RealDigits[ N[Pi, 100]][[1]]], "*"]] %t A153032 Select[ Range@ 169, Mod[ RealDigits[Pi, 10, 169][[1, # ]], 3] == 0 &] (* _Robert G. Wilson v_, Dec 21 2008 *) %Y A153032 Cf. A000796. %K A153032 nonn,base %O A153032 1,2 %A A153032 _Julio Cesar de la Yncera_, Dec 17 2008 %E A153032 More concise Mathematica coding added and sequence extended by _Robert G. Wilson v_, Dec 21 2008 %E A153032 Name edited by _Jon E. Schoenfield_, Feb 27 2014