%I A152094
%S A152094 1,1,1,11,37,179,869,3683,18389,80179,385029,1739651,8134709,37397203,
%T A152094 173097317,799986979,3694294933,17085418099,78904394437,364797113027,
%U A152094 1685324681973,7789441113619,35993781049381,166339303316579
%N A152094 Quartic product sequence: m = 2*4; l = 2*4^3; a(n)=Product[1 + m*Cos[k*Pi/
n]^2 + l*Cos[k*Pi/n]^4, {k, 1, (n - 1)/2}].
%C A152094 Limiting ratio at n=30:4.621205928975311
%F A152094 m = 2*4; l = 2*4^3; a(n)=Product[1 + m*Cos[k*Pi/n]^2 + l*Cos[k*Pi/n]^4,
{k, 1, (n - 1)/2}].
%t A152094 b = Table[Product[1 + m*Cos[k*Pi/n]^2 + l*Cos[k*Pi/n]^4, {k, 1, (n -
1)/2}], {n, 0, 30}]; FullSimplify[ExpandAll[%]] (* faster *) Round[b]
%Y A152094 Sequence in context: A140373 A003020 A075024 this_sequence A147556 A120833
A034969
%Y A152094 Adjacent sequences: A152091 A152092 A152093 this_sequence A152095 A152096
A152097
%K A152094 nonn
%O A152094 0,4
%A A152094 Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)tahoo.com), Nov
24 2008
|