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 A271353 #7 Apr 29 2016 17:31:47
%S A271353 7,3,2,3,2,3,2,5,5,3,2,3,2,5,5,3,2,3,2,5,5,3,2,7,7,5,5,3,2,3,2,7,7,5,
%T A271353 5,3,2,5,5,3,2,3,2,5,5,3,2,7,7,5,5,3,2,7,7,5,5,3,2,3,2,7,7,5,5,3,2,5,
%U A271353 5,3,2,3,2,7,7,5,5,3,2,5,5,3,2,7,7,5
%N A271353 The prime n - A270003(n) - A270753(n).
%H A271353 Clark Kimberling, <a href="/A271353/b271353.txt">Table of n, a(n) for n = 1..10000</a>
%e A271353 n p q r
%e A271353 1 3 5 7
%e A271353 2 2 3 3
%e A271353 3 2 3 2
%e A271353 4 2 5 3
%e A271353 5 2 5 2
%e A271353 6 2 7 3
%e A271353 7 2 7 2
%t A271353 t = Join[{{1, {3, 5, 7}}, {2, {2, 3, 3}}}, Table[If[PrimeQ[n], {n, {2, n, 2}}, p = If[EvenQ[2 + NextPrime[n, 1] - n], 3, 2]; NestWhile[# + 1 &, 1, ! PrimeQ[r = (p + (q = NextPrime[n, #])) - n] &]; {n, {p, q, r}}], {n, 3, 300}]];
%t A271353 Map[#[[2]][[1]] &, t] (* p, A270003 *)
%t A271353 Map[#[[2]][[2]] &, t] (* q, A270753 *)
%t A271353 Map[#[[2]][[3]] &, t] (* r, A271353 *)
%t A271353 (* _Peter J. C. Moses_, Apr 26 2016 *)
%Y A271353 Cf. A000040, A270003, A270753.
%K A271353 nonn,easy
%O A271353 1,1
%A A271353 _Clark Kimberling_, Apr 26 2016