A130512 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

PROG

(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

CROSSREFS

Cf. A130510.

Sequence in context: A027762 A002445 A151711 * A127662 A003062 A327157

Adjacent sequences: A130509 A130510 A130511 * A130513 A130514 A130515

KEYWORD

nonn

AUTHOR

T. D. Noe, Jun 01 2007

STATUS

approved