|
|
A130512
|
|
ABC conjecture: values of rad(a*b*c) in the list of "abc-hits".
|
|
11
|
|
|
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
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|