OFFSET
0,2
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..183
FORMULA
From Amiram Eldar, Dec 12 2025: (Start)
a(n) = abs(A121622(n)).
a(n) = 13^(n/2) * abs(cos(n * arctan(2/3))). (End)
MATHEMATICA
Table[s = Select[PowersRepresentations[13^n, 2, 2], CoprimeQ @@ # &, 1][[1]]; Select[s, OddQ][[1]], {n, 0, 30}]
PROG
(Magma) [Integers()!Abs(Real((3+2*Sqrt(-1))^n)): n in [0..30]]; // Bruno Berselli, May 26 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
T. D. Noe, Apr 14 2011
STATUS
approved
