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 A163150 #3 Mar 31 2012 12:38:25 %S A163150 67,509,45060624733,21424521360255636739, %T A163150 404577789549846859589538794509144411672022828773, %U A163150 22138618005861522471365237940368652982888104077311 %N A163150 Primes of the form A000041(p)+p, where p is some prime. %F A163150 a(n) = A000041(A163151(n))+A163151(n). %e A163150 With p=11=A000040(5) = A163151(1), a(1)= A000041(11)+11 = 67 is prime. %t A163150 f[n_]:=PartitionsP[n]+n; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst, f[p]]],{n,6!}];lst %Y A163150 Cf. A098145 %K A163150 nonn %O A163150 1,1 %A A163150 _Vladimir Joseph Stephan Orlovsky_, Jul 21 2009 %E A163150 Removed Mathematica specific language in the definition - _R. J. Mathar_, Sep 11 2009