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 A088438 #6 Mar 30 2012 17:34:13
%S A088438 2,6,4,7,24,35,8,18,70,88,12,29,140,165,16,40,234,266,20,52,352,391,
%T A088438 24,64,494,540,28,76,660,713,32,88,850,910,36,99,1064,1131,40,111,
%U A088438 1302,1376,44,123,1564,1645,48,135,1850,1938,52,147,2160,2255,56,159,2494
%N A088438 A chaotic Cantor integer type product set of the factorial function that trifurcates.
%C A088438 This result is due to analysis of the prime product, composite product and factorial type function to a more general type of function: n!=Product[Set1[i],{i, limit1, limit2}]*Product[Set2[i],{i,limit3,limit4}] In this case the second product contains two intervals instead of one.
%F A088438 P[n]=n!/Product[i, {i, n-Floor[n/4], n-Floor[3*n/4]}] a(n) = Floor[P[n]/P[n-1]]
%t A088438 (* factorial based function with half interval Cantor hole in the middle*) p[n_]=n!/Product[i, {i, n-Floor[n/4], n-Floor[3*n/4]}] digits=200 a0=Table[Floor[p[n]/p[n-1]], {n, 2, digits}]
%Y A088438 Cf. A088140.
%K A088438 nonn,uned
%O A088438 0,1
%A A088438 _Roger L. Bagula_, Nov 09 2003