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 A163151 #7 Mar 31 2012 14:00:55
%S A163151 11,19,151,419,2161,2311,2539,4831,5563,6961,8363,9007,9661,12347,
%T A163151 20533,21493,31033,45737,45817,46919,49363,59419,60017,82883,86561,
%U A163151 93491,99709,104231,105499,113381,125471
%N A163151 Primes p such that A000041(p)+p are also prime numbers.
%F A163151 A000041(a(n)) + a(n) = A163150(n).
%t A163151 f[n_]:=PartitionsP[n]+n; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst, p]],{n,6!}];lst
%Y A163151 Cf. A098145, A163150
%K A163151 nonn
%O A163151 1,1
%A A163151 _Vladimir Joseph Stephan Orlovsky_, Jul 21 2009
%E A163151 Removed Mathematica specific language in the definition - _R. J. Mathar_, Sep 11 2009
%E A163151 Extended by _D. S. McNeil_, Dec 05 2010