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 A071637 #13 Mar 21 2014 01:39:48 %S A071637 0,0,0,0,1,0,1,1,1,0,4,0,1,2,2,0,3,0,3,2,1,0,6,2,1,3,3,0,6,0,5,2,1,4, %T A071637 7,0,1,2,8,0,5,0,3,9,1,0,10,3,5,2,3,0,7,4,8,2,1,0,13,0,1,9,9,4,5,0,3, %U A071637 2,10,0,16,0,1,8,3,6,5,0,18,9,1,0,12,4,1,2,7,0,20,6,3,2,1,4,17,0,7,8,11 %N A071637 Largest exponent k >=0 such that (n+1)^k divides n!. %C A071637 a(A068499(n)) = 0. %e A071637 12^4 divides 11! (11!/12^4=1925) but 12^5 doesn't, hence a(11)=4. %t A071637 Table[IntegerExponent[n!,n+1],{n,500}] (* _Vladimir Joseph Stephan Orlovsky_, Dec 26 2010 *) %o A071637 (PARI) for(n=1,150,s=0; while(n!%(n+1)^s==0,s++); print1(s-1,",")) %Y A071637 A011776(n+1) - 1. %K A071637 easy,nonn %O A071637 1,11 %A A071637 _Benoit Cloitre_, Jun 25 2002