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 A117714 #3 Mar 30 2012 17:34:20
%S A117714 6,9,12,18,21,26,30,34,42,56,64,69,72,81,86,102,111,144,150,160,165,
%T A117714 198,217,231,274,282,288,300,312,342,348,351,381,393,405,414,432,453,
%U A117714 459,465,473,495,501,515
%N A117714 a(n) = (A034962(n) - A152470(n))/2.
%C A117714 The sequence is always increasing.
%t A117714 a = Flatten[Table[If[PrimeQ[Prime[n] + Prime[n + 1] + Prime[n + 2]] == True, If [Prime[n] + Prime[n + 1] + Prime[n + 2] - Prime[m] == 0, {( Prime[m] - Prime[n + 2])/2}, {}], {}], {n, 1, 100}, {m, 1, 500}]]
%Y A117714 Cf. A072225, A073681.
%K A117714 nonn,easy
%O A117714 1,1
%A A117714 _Roger L. Bagula_, Apr 13 2006
%E A117714 Description simplified by the Assoc. Eds. of the OEIS, Jun 27 2010