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 A076928 #9 Dec 05 2013 19:55:47
%S A076928 1,1,1,2,2,4,4,16,48,96,96,384,384,768,2304,18432,18432,110592,110592,
%T A076928 442368,1327104,2654208,2654208,21233664,106168320,212336640,
%U A076928 1911029760,7644119040,7644119040,45864714240,45864714240,733835427840
%N A076928 a(1) = 1, a(n+1)= a(n)*(n+1) divided by the largest prime divisor of n+1.
%p A076928 a[1] := 1:for n from 2 to 100 do q := ifactors(n)[2]:a[n] := n*a[n-1]/q[nops(q)][1]: od:seq(a[j],j=1..100);
%t A076928 nxt[{a_,b_}]:={a(b+1)/FactorInteger[b+1][[-1,1]],b+1}; Transpose[ NestList[ nxt[#]&,{1,1},40]][[1]] (* _Harvey P. Dale_, Aug 11 2011 *)
%Y A076928 Cf. A076929.
%K A076928 nonn
%O A076928 1,4
%A A076928 _Amarnath Murthy_, Oct 18 2002
%E A076928 Corrected and extended by _Sascha Kurz_, Jan 21 2003