|
%I #16 Oct 09 2020 09:01:26
%S 6,28,30,140,80,200,40,224,12,234,84,270,66,308,78,364,102,476,496,
%T 114,532,240,600,138,644,120,672,150,700,174,812,135,819,186,868,864,
%U 936,222,1036,246,1148,60,1170,258,1204,282,1316,560,1400,318,1484,1488,330
%N All friendly numbers, with smallest member of each club listed just before the second-smallest one.
%C Run through all natural numbers i = 1, 2, 3, ... in order, and record for each the abundancy index sigma(i)/i. When we reach an abundancy that has been seen before, output first the "old" number which had that abundancy (unless that number has already been output earlier), and output secondly the current i.
%C By construction, no number can occur more than once in the sequence.
%C Friendly numbers that are not smallest in their club, appear in increasing order. Friendly numbers that are smallest in their club, appear just before the second-smallest member.
%C If we were to "forget" to output the smallest member in each club, we would get instead A095301.
%C Oppositely, if we output the smallest members only, we get instead A259918.
%C It is not known whether the number 10 belongs to this sequence.
%H Jeppe Stig Nielsen, <a href="/A259917/b259917.txt">Table of n, a(n) for n = 1..6000</a>
%H Doyon Kim, <a href="http://arxiv.org/abs/1608.06834">Friends of 12</a>, arXiv:1608.06834 [math.HO], 2016.
%H Jeffrey Ward, <a href="http://arxiv.org/abs/0806.1001">Does Ten Have a Friend?</a>, arXiv:0806.1001 [math.NT], 2008.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/FriendlyPair.html">Friendly Pair</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Friendly_number">Friendly number</a>.
%o (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]); print(i,","),listput(known,[a,i])))
%Y Cf. A050973, A259918, A095301, A014567, A074902.
%Y Terms form a subset of A069059.
%K nonn
%O 1,1
%A _Jeppe Stig Nielsen_, Jul 08 2015
|
