%I A088438
%S A088438 2,6,4,7,24,35,8,18,70,88,12,29,140,165,16,40,234,266,20,52,352,391,24,
%T A088438 64,494,540,28,76,660,713,32,88,850,910,36,99,1064,1131,40,111,1302,
%U A088438 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.
%Y A088438 Sequence in context: A059773 A127399 A151689 this_sequence A097265 A074208 
               A066043
%Y A088438 Adjacent sequences: A088435 A088436 A088437 this_sequence A088439 A088440 
               A088441
%K A088438 nonn,uned
%O A088438 0,1
%A A088438 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 09 2003