OFFSET
1,1
COMMENTS
An abcd quadruple is defined as (a, b, c, d) with a+b+c+d = 0, all |a|, |b|, |c|, |d| are pairwise coprime, and radical of a*b*c*d, rad(|a|*|b|*|c|*|d|) < max (|a|, |b|, |c|, |d|).
The quality of an abcd quadruple is q = log(max(|a|,|b|,|c|,|d|))/log(rad(|a|*|b|*|c|*|d|)).
This sequence considers quadruples of the form a = +/- 1 and a+b+c = d with a < b < c < d.
LINKS
David A. Corneth, Table of n, a(n) for n = 1..161
C. F. W. Ramaekers, The abc-Conjecture and the n-conjecture, Eindhoven University of Technology Nov 12, 2009.
EXAMPLE
a(2) = 27 because the second occurrence of an abcd quadruple with a = +/- 1 is (-1, 27, 2375, 2401) with a = -1. As factors in the form a+d = b+c we have 1 + 7^4 = 3^3 + 5^3 * 19.
a(4) = 25 because the fourth occurrence of an abcd quadruple with a = +/- 1 is (1, 25, 11881, 11907) with a = 1. As factors in the form a+b+c = d we have 1 + 5^2 + 109^2 = 3^5 * 7^2.
MATHEMATICA
Rad[n_] := Module[{lst=FactorInteger[n]}, Times@@(First/@lst)]; lst={}; Do[Do[If[d=b+c+a; AllTrue[{{Abs[a], b}, {Abs[a], c}, {Abs[a], d}, {b, c}, {b, d}, {c, d}}, Apply[CoprimeQ]]&&d>Rad[Abs[a]*b*c*d], AppendTo[lst, {a, b, c}]], {c, 3, 3000}, {b, 2, c}], {a, {-1, 1}}]; First/@SortBy[lst, {#[[2]]&, #[[3]]&}]
CROSSREFS
KEYWORD
sign
AUTHOR
Frank M Jackson, Sep 12 2024
EXTENSIONS
More terms from David A. Corneth, Sep 18 2024
STATUS
approved