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 A093697 #4 Mar 30 2012 17:31:00
%S A093697 1,1,2,3,4,5,6,7,7,8,9,10,10,11,12,13,14,14,15,16,17,17,18,19,20,20,
%T A093697 21,22,23,23,24,25,26,27,27,28,29,30,30,31,32,33,33,34,35,36,37,37,38,
%U A093697 39,40,40,41,42,43,43,44,45,46,47,47,48,49,50,50,51,52,53,53,54,55,56,57
%N A093697 Least k so that n! >= primorial(k).
%e A093697 a(9) = 7 because p#_6 = 30030 < 9! = 362880 < p#_7 = 510510.
%t A093697 Primorial[n_] := Product[ Prime[i], {i, n}]; f[n_] := Block[{k = 1}, While[ Primorial[k] < n!, k++ ]; k]; Table[ f[n], {n, 75}]
%Y A093697 Cf. A048964.
%K A093697 easy,nonn
%O A093697 1,3
%A A093697 _Robert G. Wilson v_, Apr 09 2004