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