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 A139322 #6 Dec 25 2016 00:28:58
%S A139322 1,6,9,15,17,21,27,33,39,41,45,47,51,53,57,63,65,71,77,83,89,95,101,
%T A139322 107,113,119,125,131,137,143,149,155,161,167,173,185,191,197,203,209,
%U A139322 215,221,227,233,239,245,251,257,269,275,277,281,287,293,299,305,311,317
%N A139322 Record values of n in A068307.
%H A139322 Robert G. Wilson v and T. D. Noe, <a href="/A139322/b139322.txt">Table of n, a(n) for n = 0..5000</a>
%t A139322 f[n_] := Block[{c = 0, lmt = PrimePi@ Floor[n/2], p, q}, Do[p = Prime@ i; q = Prime@ j; r = n - p - q; If[ PrimeQ@ r && r >= p, c++ ], {i, lmt}, {j, i}]; c]; lst = {1}; Do[ If[f@n > f@lst[[ -1]], AppendTo[lst, n]], {n, 13450}]; lst
%Y A139322 Cf. A000040, A068307, A139321.
%K A139322 nonn
%O A139322 0,2
%A A139322 _Robert G. Wilson v_, Apr 13 2008