OFFSET
0,1
COMMENTS
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.
FORMULA
P[n]=n!/Product[i, {i, n-Floor[n/4], n-Floor[3*n/4]}] a(n) = Floor[P[n]/P[n-1]]
MATHEMATICA
(* 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}]
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Nov 09 2003
STATUS
approved