login
Values of x such that x^2 + y^2 = 73^n with x and y coprime and 0 < x < y.
2

%I #28 May 08 2021 08:36:32

%S 3,48,296,721,10072,213785,1958709,7613760,21165597,894454032,

%T 12278087704,59926173839,62518379032,3374316625735,58552907681096,

%U 416603004343680,1261259807092797,10231862403603888,255781764375436389,2697529798981443601,11543491568219853608

%N Values of x such that x^2 + y^2 = 73^n with x and y coprime and 0 < x < y.

%C The corresponding y-values are in A230963.

%H Vincenzo Librandi, <a href="/A230962/b230962.txt">Table of n, a(n) for n = 1..200</a>

%H Chris Busenhart, Lorenz Halbeisen, Norbert Hungerbühler, and Oliver Riesen, <a href="https://people.math.ethz.ch/~halorenz/publications/pdf/Miniatur.pdf">On primitive solutions of the Diophantine equation x^2+ y^2= M</a>, Eidgenössische Technische Hochschule (ETH Zürich, Switzerland, 2020).

%F From _Robert Israel_, Mar 31 2017: (Start)

%F a(n) = min(abs(Re((3+8i)^n)), abs(Im((3+8i)^n))).

%F a(n) = abs(Re(3+8i)^n) if and only if 1/4 < frac(n*arctan(8/3)/Pi) < 3/4.

%F (End)

%e a(3) = 296 because 296^2 + 549^2 = 389017 = 73^3.

%p f:=n -> min([abs@Re,abs@Im]((3+8*I)^n)):

%p map(f, [$1..50]); # _Robert Israel_, Mar 31 2017

%t Table[Select[PowersRepresentations[73^n, 2, 2], CoprimeQ@@#&][[1, 1]], {n, 1, 40}] (* _Vincenzo Librandi_, Mar 02 2014 *)

%t Table[Min[Abs[Re[(3 + 8I)^n]], Abs[Im[(3 + 8I)^n]]], {n, 30}] (* _Indranil Ghosh_, Mar 31 2017, after formula by _Robert Israel_ *)

%o (Python)

%o from sympy import I, re, im

%o print([min(abs(re((3 + 8*I)**n)), abs(im((3 + 8*I)**n))) for n in range(1, 31)]) # _Indranil Ghosh_, Mar 31 2017, after formula by _Robert Israel_

%Y Cf. A230963, A188948, A230622, A230644, A230710, A230712, A230743, A230759, A230841.

%K nonn

%O 1,1

%A _Colin Barker_, Nov 02 2013