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 A226218 #12 Jul 16 2015 22:32:32
%S A226218 23,11,23,23,17,19,23,23,47,41,29,31,47,47,47,41,71,71,71,83,47,53,47,
%T A226218 71,59,71,71,83,59,167,71,59,149,167,71,167,83,71,167,79,89,251,167,
%U A226218 149,149,83,269,89,167,251,251,113,239,149,167,109,127,269,251,107
%N A226218 Ending primes for n-th composite number in the iterated procedure of composite added to sum of prime factors.
%C A226218 If we consider nonprimes instead of composite then a(1)=2. Sorted list of primes generated here are given in A050778.
%e A226218 For the first composite number 4 repeated application of composite added to sum of prime factors give 4, 8, 14, 23 and so a(1)=23.
%t A226218 a[n_] := NestWhile[#+Total[Times@@@FactorInteger[#]]&, n, !PrimeQ[#]&]; t={}; Do[If[!PrimeQ[n], AppendTo[t, a[n]]], {n, 4, 80}]; t
%Y A226218 Cf. A050703-A050710, A050778.
%K A226218 nonn
%O A226218 1,1
%A A226218 _Jayanta Basu_, May 31 2013