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 A136755 #9 Jan 27 2015 01:03:00 %S A136755 1,1,2,1,1,1,2,1,2,1,3,2,1,1,1,1,1,1,1,1,2,2,3,1,2,3,1,2,3,1,3,1,3,1, %T A136755 3,1,1,2,1,3,2,1,3,2,1,1,3,2,1,1,1,3,2,2,2,1,1,1,1,1,1,1,1,3,3,1,1,1, %U A136755 1,1,1,1,1,1,2,2,3,3,1,1,1,2,2,3,1,1,2,2,1,1,1,2,1,1,2,3,1,1,2,1 %N A136755 a(n) = leading digit of n! in base 4. %t A136755 f[n_]:=First[IntegerDigits[n!,4]]; lst={};Do[AppendTo[lst,f[n]],{n,0,2*5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jun 14 2009 *) %o A136755 (PARI) a(n) = digits(n!, 4)[1]; \\ _Michel Marcus_, Jan 27 2015 %Y A136755 Cf. A000142, A136691, A136754, A136756, A136757, A136758, A136759, A136760, A008905, A136761, A136762, A136763, A136764, A136765, A136766. %K A136755 base,easy,nonn %O A136755 0,3 %A A136755 _Carl R. White_, Jan 21 2008