This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A050710 #18 Oct 16 2019 03:15:30 %S A050710 6,8,4,32,49,45,60,125,82,66,150,129,559,417,358,378,314,279,247,183, %T A050710 1152,1102,2265,1929,1658,1524,1414,5708,8047,6033,8430,8020,7852, %U A050710 11805,11715,9388,12622,13471,13146,12562,12512,20830,16869,13492,58832 %N A050710 Smallest composite that when added to sum of prime factors reaches a prime after n iterations. %H A050710 Donovan Johnson, <a href="/A050710/b050710.txt">Table of n, a(n) for n = 1..200</a> %e A050710 n = 2 gives a(2) = 8 -> 8 = 2*2*2 so 8 + (2+2+2) = 14 and composite (iteration 1); 14 = 2*7 so 14 + (2+7) = 23 and already prime after the second iteration. %t A050710 a[n_]:=Length[NestWhileList[#+Total[Times@@@FactorInteger[#]]&,n,!PrimeQ[#] &]]-1; t={}; Do[i=2; While[a[i]!=n,i++]; AppendTo[t,i], {n,45}]; t (* _Jayanta Basu_, May 25 2013 *) %Y A050710 Cf. A050703, A050704, A050705, A050706, A050707, A050708, A050709. %Y A050710 See also A050767. %K A050710 nonn %O A050710 1,1 %A A050710 _Patrick De Geest_, Aug 15 1999 %E A050710 More terms from _Michel ten Voorde_