OFFSET
1,2
COMMENTS
EXAMPLE
MAPLE
R:= NULL: count:= 0: V:= {}: S:= {}:
for k from 1 while count < 50 do
V:= V union {numtheory:-sigma(k)/k};
if member(k/numtheory:-phi(k), V) then
s:= numtheory:-factorset(k);
if not member(s, S) then
R:= R, k; count:= count+1; S:= S union {s}
fi fi;
od:
R;
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Mar 09 2023
STATUS
approved