A173171 a(n) = - sin^2((2n-1)*arccos(sqrt n)) = sin^2((2n-1)*arcsin(sqrt n)) - 1.

-1, 0, 49, 23762, 25421763, 48225038404, 142786923879605, 608447515452613206, 3527836867501829594887, 26710782540478226038759688, 255922222218837615280903143609, 3026917140685147530327256796600410

Offset: 0

Author

Artur Jasinski, Feb 11 2010

Keywords

• sign

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..170

Crossrefs

Cf. A132592, A146311, A146312, A146313, A173115, A173116 A173121, A173127, A173128, A173129, A173130, A173131, A173133, A173134, A173148, A173151, A173170.

Programs

Mathematica

Table[Round[-N[ Sin[(2 n - 1) ArcCos[Sqrt[n]]]^2, 100]], {n, 0, 20}] (* Artur Jasinski, Feb 11 2010; Typo fixed by Vincenzo Librandi, Jun 29 2014 *)