A163153 Primes of the form A000009(q)+q, where q are also prime numbers.
3, 5, 23, 31, 73, 127, 797, 1301, 9851, 40099, 345953, 570181, 281138239, 48626519377, 91840127431010423, 130050574409983361, 6162297935619708167, 604490895403729930283, 3819342674540204978827, 20395819231612037821523
Offset: 1
Keywords
Programs
-
Mathematica
f[n_]:=PartitionsQ[n]+n; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst, f[p]]],{n,6!}];lst Select[Table[PartitionsQ[n]+n,{n,Prime[Range[300]]}],PrimeQ] (* Harvey P. Dale, Jun 02 2014 *)
Extensions
Edited by R. J. Mathar, Jul 25 2009
Comments