Search: id:A147302
Results 1-1 of 1 results found.

%I A147302
%S A147302 2,9,81,128,2401,4375,6436343
%N A147302 a(n) = such k where records occured in expression Log[k]/Log[A147298(k)]
%C A147302 a(n) = Numbers a(n) such that a(n)/R(m a(n)(a(n)-m)) > a(n-1)/R(g a(n-1)(a(n-1)-g)) 
               0 < m < a(n) and 0 < g < a(n-1).
%C A147302 This sequence is list of successive records in abc conjecture.
%C A147302 No more terms up to 10^20.
%C A147302 For smallest values of function rad(m n (n - m)) see A147298
%C A147302 For biggest values of function rad(m n (n - m)) see A147299
%C A147302 For numbers m for which rad(m n (n - m)) reached minimal value see A147300
%C A147302 For numbers m for which rad(m n (n - m)) reached maximal value see A147301
%t A147302 logmax = 0; aa = {}; Do[min = 10^100; max = 0; ile = 0; Do[If[GCD[m, 
               n, n - m] == 1, ile = ile + 1; s = m n (n - m); k = FactorInteger[s]; 
               g = 1; Do[g = g k[[p]][[1]], {p, 1, Length[k]}]; If[g > max, max 
               = g; mmax = m]; If[g < min, min = g; mmin = m]], {m, 1, n - 1}]; 
               If[(Log[n]/Log[min]) > logmax, logmax = (Log[n]/Log[min]); AppendTo[aa, 
               n]; Print[{N[logmax], n, mmin, min, mmax, max}]; AppendTo[ff, n]], 
               {n, 2, 2500}]; aa (*Artur Jasinski*)
%Y A147302 A085152, A085153, A147298-A147307
%Y A147302 Sequence in context: A122720 A109519 A135868 this_sequence A112670 A117581 
               A123570
%Y A147302 Adjacent sequences: A147299 A147300 A147301 this_sequence A147303 A147304 
               A147305
%K A147302 nonn
%O A147302 1,1
%A A147302 Artur Jasinski (grafix(AT)csl.pl), Nov 05 2008

Search completed in 0.001 seconds