|
%I
%S 1,3,1,1,6,2,1,9,4,1,12,5,1,15,7,1,18,8,1,21,10,1,24,11,1,27,13,1,30,
%T 14,1,33,16,1,36,17,1,39,19,1,42,20,1,45,22,1,48,23,1,51,25,1,54,26,1,
%U 57,28,1,60,29,1,63,31,1,66,32,1,69,34,1,72,35,1,75,37,1,78,38,1,81,40,1
%N A one third Cantor set as a factorial product function.
%C A factorial sequence in three parts that trifurcates in a chaotic sequence: n!=Product[i,{i,n-Floor[2*n/3],n-Floor[n/3]}]* (Product[i,{i,1,n-Floor[2*n/3]-1}]*Product[i,{i,n-Floor[n/3]-1,n}])
%F p[n]=n!/Product[i, {i, n-Floor[2*n/3], n-Floor[n/3]}] a(n) = Floor[p[n]/p[n-1]]
%t p[n_]=n!/Product[i, {i, n-Floor[2*n/3], n-Floor[n/3]}] digits=200 a0=Table[Floor[p[n]/p[n-1]], {n, 2, digits}]
%Y Cf. A088140.
%K nonn,uned
%O 2,2
%A _Roger L. Bagula_, Nov 09 2003
|
