Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #16 Jun 23 2018 12:19:24
%S 0,0,288,235224,354079488,865363202000,3134808545188320,
%T 15796198853361763368,105717380511014096025600,
%U 907380314352243226001152800,9718304978537581699085289156000
%N a(n) = sinh^2 (2n*arccosh(sqrt n)).
%C Also a(n) = -sin(2n*arccos(sqrt(n)))^2 = -sin(2n*arcsin(sqrt(n)))^2.
%H Vincenzo Librandi, <a href="/A173150/b173150.txt">Table of n, a(n) for n = 0..170</a>
%p A173150 := proc(n) sinh(2*n*arccosh(sqrt(n))) ; %^2 ; expand(%) ; simplify(%) ;end proc: # _R. J. Mathar_, Feb 26 2011
%t Table[Round[-Sin[2 n ArcCos[Sqrt[n]]]^2], {n, 0, 20}] (* _Artur Jasinski_, Feb 11 2010 *)
%Y Cf. A132592, A146311, A146312, A146313, A173115, A173116, A173121, A173127, A173128, A173129, A173130, A173131, A173133, A173134, A173148.
%K nonn
%O 0,3
%A _Artur Jasinski_, Feb 11 2010
%E Minor edits by _Vaclav Kotesovec_, Apr 05 2016