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 A153030 #8 Feb 28 2014 03:06:27 %S A153030 3,7,8,12,17,19,20,21,22,23,24,27,29,33,34,35,36,37,42,51,53,54,55,58, %T A153030 60,61,64,66,68,70,71,72,73,74,75,76,77,78,79,82,83,84,85,86,88,89,90, %U A153030 93,94,98,99,102,103,105,106,107,108,109,113,114,115,117,118,119,120 %N A153030 Positions of even digits of Pi. %t A153030 Flatten[Position[ Map[If[EvenQ[ # ], "*", # ] &, RealDigits[ N[Pi, 100]][[1]]], "*"]] %t A153030 Select[Range@140, EvenQ[RealDigits[Pi, 10, 140][[1, # ]]] &] (* _Robert G. Wilson v_, Dec 21 2008 *) %Y A153030 Cf. A000796. %K A153030 nonn,base %O A153030 1,1 %A A153030 _Julio Cesar de la Yncera_, Dec 17 2008 %E A153030 More concise Mathematica coding added and sequence extended by _Robert G. Wilson v_, Dec 21 2008