The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A216323 Values for b in abc-triples with a=1. 3
8, 48, 63, 80, 224, 242, 288, 512, 624, 675, 728, 960, 1024, 1215, 2303, 2400, 3024, 3887, 3968, 4095, 4374, 5831, 6399, 6560, 6655, 6859, 8575, 9375, 9408, 9800, 10647, 12167, 14336, 15624, 16128, 17576, 21951, 24299, 25920, 28125, 29375, 29791 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
For abc-triples see de Smit's link.
(a, b, c=a+b) with positive integers a and b, a <= b, gcd(a,b) = 1 is called an abc-triple if r(a,b,c) < c where r(a,b,c) = rad(a*b*c) with rad = A007947 (radical or squarefree kernel). The quality q of an abc-triple is the real positive number q(a,b,c) = log(c)/log(r(a,b,c)), hence q > 1. See also a comment on A216370.
Here one considers a = 1, c = 1+b for b >= 1.
The radical r(1,a(n),a(n)+1) for these abc-triples is 2*A216324.
The highest quality q of the 258 abc-triples (1, a(n), a(n)+1) with b in the range 1..10^7 appears for the triple (1, 4374, 4375) with b = a(21) and q = 1.567887264 (maple 10 digits).
This sequence is infinite because it contains the infinite subsequence b(k) = 9^k - 1, k>=1.
Alvarez-Salazar et al. prove that k is a term iff k/rad(k) > rad(k+1). - Michel Marcus, Jan 05 2023
LINKS
Elise Alvarez-Salazar, Alexander J. Barrios, Calvin Henaku, and Summer Soller, On abc triples of the form (1,c-1,c), arXiv:2301.01376 [math.NT], 2023.
Bart de Smit, Triples of small size [references the ABC@Home project which is inactive since 2015]
FORMULA
(1, b=a(n), a(n)+1) is an abc-triple (which has quality q > 1) with increasingly ordered b values. See the comment above for abc-triples.
MAPLE
read "abc1bN.txt": abc1bN(30000); (with the above given maple text file).
MATHEMATICA
rad[n_] := Times @@ Transpose[FactorInteger[n]][[1]]; a = 1; Table[t = {}; mx = 10^n; Do[c = a + b; If[c < mx && GCD[a, b] == 1 && Log[c] > Log[rad[a*b*c]], AppendTo[t, b]], {b, a, mx - a}], {n, 5}]; t (* T. D. Noe, Sep 24 2012 *)
CROSSREFS
Sequence in context: A024108 A247726 A263506 * A335351 A333522 A165037
KEYWORD
nonn
AUTHOR
Wolfdieter Lang, Sep 24 2012
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 17 12:26 EDT 2024. Contains 372600 sequences. (Running on oeis4.)