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 A163153 #5 Jun 02 2014 10:34:13
%S A163153 3,5,23,31,73,127,797,1301,9851,40099,345953,570181,281138239,
%T A163153 48626519377,91840127431010423,130050574409983361,6162297935619708167,
%U A163153 604490895403729930283,3819342674540204978827,20395819231612037821523
%N A163153 Primes of the form A000009(q)+q, where q are also prime numbers.
%C A163153 A subset of A121558.
%C A163153 Generated by positions q= 2, 3, 11, 13, 19, 23, 37, 41, 59, 73, 97..
%t A163153 f[n_]:=PartitionsQ[n]+n; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst, f[p]]],{n,6!}];lst
%t A163153 Select[Table[PartitionsQ[n]+n,{n,Prime[Range[300]]}],PrimeQ] (* _Harvey P. Dale_, Jun 02 2014 *)
%Y A163153 Cf. A098145, A163150, A163151, A049575, A163152.
%K A163153 nonn
%O A163153 1,1
%A A163153 _Vladimir Joseph Stephan Orlovsky_, Jul 21 2009
%E A163153 Edited by _R. J. Mathar_, Jul 25 2009