OFFSET
1,1
EXAMPLE
138985 = 5*7*11*19^2 = 138985/(5-3) +138985/(7-3) +138985/(11-3) +138985*2/(19-3)
MAPLE
with(numtheory): P:=proc(q, h) global k, n, v; v:=[];
for n from 1 to q do if n mod 3>0 then if n=add(n*k[2]/(k[1]+h), k=ifactors(n)[2]) then v:=[op(v), n];
print(n); fi; fi; od; op(v); end: P(6949250, -3);
CROSSREFS
KEYWORD
nonn,easy,new
AUTHOR
Paolo P. Lava, Mar 03 2025
STATUS
approved