|
%I #7 Oct 19 2023 22:32:07
%S 6,30,42,42,30,42,110,30,210,66,210,210,78,210,102,210,210,390,182,
%T 114,462,390,210,510,390,546,330,390,690,930,770,410,210,570,462,330,
%U 1122,1110,1518,1230,690,1190,570,1122,1122,834,2010,390,1794,1974,510,210
%N ABC conjecture: values of rad(a*b*c) in the list of "abc-hits".
%H T. D. Noe, <a href="/A130512/b130512.txt">Table of n, a(n) for n=1..1269</a>
%o (Python)
%o from itertools import count, islice
%o from math import prod, gcd
%o from sympy import primefactors
%o def A130512_gen(): # generator of terms
%o for c in count(1):
%o pc = set(primefactors(c))
%o for a in range(1,(c>>1)+1):
%o b = c-a
%o if gcd(a,b)==1 and c>(d:=prod(set(primefactors(a))|set(primefactors(b))|pc)):
%o yield d
%o A130512_list = list(islice(A130512_gen(),30)) # _Chai Wah Wu_, Oct 19 2023
%Y Cf. A130510.
%K nonn
%O 1,1
%A _T. D. Noe_, Jun 01 2007
|
