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 A253584 #11 Apr 27 2024 10:59:17
%S A253584 4,5,7,11,17,34,37,43,67,73,127,141,157,173,227,283,347,359,401,409,
%T A253584 607,857,1091,1303,1823,1907,2281,2437,2441,2609,2969,3851,4211,4691,
%U A253584 6907,7537,8429,10301,11953,14081,14557
%N A253584 Distinct terms in A253443.
%C A253584 a(n) occurs exactly A253444(n) times in A253443.
%t A253584 nn = 2^14; c[_] := False;
%t A253584 Array[Set[{a[#], c[#]}, {#, True}] &, 2]; u = s = a[1] + a[2];
%t A253584 Rest@ Reap[Monitor[Do[k = SelectFirst[Divisors[s], ! c[#] &];
%t A253584 c[k] = True; s += k;
%t A253584 If[k == u, Sow[u]; While[c[u], u++]], {n, 3, nn}], n]][[-1, 1]] (* _Michael De Vlieger_, Apr 27 2024 *)
%o A253584 (Haskell)
%o A253584 import Data.List (group)
%o A253584 a253584 n = a253584_list !! (n-1)
%o A253584 a253584_list = map head $ group a253443_list
%Y A253584 Cf. A253443, A253444, A109890.
%K A253584 nonn,more
%O A253584 1,1
%A A253584 _Reinhard Zumkeller_, Jan 05 2015
%E A253584 More terms from _Michael De Vlieger_, Apr 27 2024