OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..208
MAPLE
with(numtheory): P:=proc(q, h) local k, n, v; v:=[];
for n from 1 to q do if n=add(n*k[2]/(k[1]+h), k=ifactors(n)[2]) then v:=[op(v), n]; fi;
od; op(v); end: P(79350, 2);
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Mar 03 2025
EXTENSIONS
a(22) - a(28) from Giovanni Resta, Mar 03 2025
STATUS
approved
