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 A097224 #4 Mar 30 2012 17:37:42
%S A097224 2,3,3,3,5,5,5,5,7,7,7,7,7,7,7,7,19,19,23,31,31,47,73,103,139,173,173,
%T A097224 173,211,233,293,313,331,359,383,389,389,523,601,727,751,829,929,997,
%U A097224 1039,1093,1163,1321,1427,1583
%N A097224 Nondecreasing subsequence of A020481.
%t A097224 c[n_] := Block[{m = 2}, While[ !PrimeQ[2n - Prime[m]], m++ ]; Prime[m]]; v={2}; Do[ p = c[n]; If[ p >= v1, v1 = p; AppendTo[v, p]; Print[p]], {n, 3, 215000000}]; v
%Y A097224 Cf. A020481, A051610, Union(A097224)=A025019.
%K A097224 nonn
%O A097224 1,1
%A A097224 _Farideh Firoozbakht_, Aug 09 2004
%E A097224 More terms from _Robert G. Wilson v_, Aug 10 2004