%I #12 Sep 16 2018 21:39:38
%S 0,16,16,144,16,400,144,784,64,1296,400,1936,18,2704,784,3600,256,
%T 4624,1296,5776,50,7056,1936,8464,576,10000,2704,11664,49,13456,3600,
%U 15376,1024,17424,4624,19600,81,21904,5776,24336,1600,26896,7056,29584,242,32400,8464,35344,2304,38416
%N Denominator of 1/16 - 1/n^2.
%C The value of a(n)=0 is substituted at the pole n=0.
%C Extends the Bracket spectrum to negative quantum numbers in the fashion of A061038 (1/4-1/n^2) and A181759 (1/9-1/n^2).
%H G. C. Greubel, <a href="/A174683/b174683.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A061042(n), n>=4.
%F a(n) = LCM[n^2 - 16, 16*n^2]/(n^2 - 16), for n>=5. - _G. C. Greubel_, Sep 16 2018
%t Table[If[n == 0, 0, If[n == 4, 16, Denominator[(n^2 - 16)/(4*n)^2]]], {n, 0, 100}] (* _G. C. Greubel_, Sep 16 2018 *)
%o (PARI) for(n=0,100, print1(if(n==0,0, if(n==4,16, denominator((n^2 - 16)/(4*n)^2))), ", ")) \\ _G. C. Greubel_, Sep 16 2018
%Y Cf A174680 (numerators).
%K nonn,easy,frac
%O 0,2
%A _Paul Curtz_, Nov 30 2010
%E Removed a(-4)-a(-1) since a(-n)=a(n) by _G. C. Greubel_, Sep 16 2018
|