OFFSET
1,1
COMMENTS
Subsequence of A259917 (see that entry).
LINKS
Wikipedia, Friendly number.
PROG
(PARI) known=List(); for(i=1, 10^5, a=sigma(i)/i; match=0; for(j=1, #known, if(known[j][1]==a, match=j; break())); if(match, old=known[match][2]; if(old, print1(old, ", "); known[match]=[a, 0]), listput(known, [a, i])))
CROSSREFS
KEYWORD
nonn
AUTHOR
Jeppe Stig Nielsen, Jul 08 2015
STATUS
approved