%I A152143
%S A152143 1,1,1,40,15,451,160,4901,1785,55480,20295,630631,230400,7152809,
%T A152143 2612233,81089800,29614935,919350379,335764960,10423396429,3806834625,
%U A152143 118178205080,43161016271,1339876575119,489349324800,15191201606801
%N A152143 A sixth degree product form sequence: a(n)=Product[(1 + 4*Sin[k*Pi/n]^2
+ 16*Sin[k*Pi/n]^4 + 64*Sin[k*Pi/n]^6), {k, 1, Floor[(n - 1)/2]}].
%F A152143 a(n)=Product[(1 + 4*Sin[k*Pi/n]^2 + 16*Sin[k*Pi/n]^4 + 64*Sin[k*Pi/ n]^6),
{k, 1, Floor[(n - 1)/2]}].
%t A152143 f[n_] =Product[(1 + 4*Sin[k*Pi/n]^2 + 16*Sin[k*Pi/n]^4 + 64*Sin[k*Pi/
n]^6), {k, 1, Floor[(n - 1)/2]}]; a = Table[f[n], {n, 0, 30}]; Round[a];
FullSimplify[ExpandAll[a]]
%Y A152143 Sequence in context: A037937 A126652 A117831 this_sequence A033975 A033360
A029543
%Y A152143 Adjacent sequences: A152140 A152141 A152142 this_sequence A152144 A152145
A152146
%K A152143 nonn
%O A152143 0,4
%A A152143 Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Nov
26 2008
|