A130512 ABC conjecture: values of rad(a*b*c) in the list of "abc-hits".

6, 30, 42, 42, 30, 42, 110, 30, 210, 66, 210, 210, 78, 210, 102, 210, 210, 390, 182, 114, 462, 390, 210, 510, 390, 546, 330, 390, 690, 930, 770, 410, 210, 570, 462, 330, 1122, 1110, 1518, 1230, 690, 1190, 570, 1122, 1122, 834, 2010, 390, 1794, 1974, 510, 210

Offset: 1

Author

T. D. Noe, Jun 01 2007

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n=1..1269

Crossrefs

Cf. A130510.

Programs

Python

from itertools import count, islice
from math import prod, gcd
from sympy import primefactors
def A130512_gen(): # generator of terms
    for c in count(1):
        pc = set(primefactors(c))
        for a in range(1,(c>>1)+1):
            b = c-a
            if gcd(a,b)==1 and c>(d:=prod(set(primefactors(a))|set(primefactors(b))|pc)):
                yield d
A130512_list = list(islice(A130512_gen(),30)) # Chai Wah Wu, Oct 19 2023