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 A221708 #8 Jan 28 2013 17:35:36 %S A221708 2,3,5,9,13,17,21,30,40,45,50,66,77,100,118,124,130,155,161,226,246, %T A221708 273,371,378,385,421,450,472,509,584,599,637,660,683,745,784,855,983, %U A221708 991,999,1072,1121,1162,1228,1378,1420,1479,1598,1615,1761 %N A221708 Records in A216377. %H A221708 Giovanni Resta, <a href="/A221708/b221708.txt">Table of n, a(n) for n = 1..150</a> %t A221708 r=0; n=f=2; Table[While[(k = Floor[f/n^Floor@Log[n,f]]) <= r, f *= ++n]; r = k; n, {50}] (* _Giovanni Resta_, Jan 28 2013 *) %Y A221708 Cf. A216377, A221707. %K A221708 nonn %O A221708 1,1 %A A221708 _N. J. A. Sloane_, Jan 25 2013 %E A221708 a(41)-a(50) from _Giovanni Resta_, Jan 28 2013