|
|
A163153
|
|
Primes of the form A000009(q)+q, where q are also prime numbers.
|
|
0
|
|
|
3, 5, 23, 31, 73, 127, 797, 1301, 9851, 40099, 345953, 570181, 281138239, 48626519377, 91840127431010423, 130050574409983361, 6162297935619708167, 604490895403729930283, 3819342674540204978827, 20395819231612037821523
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Generated by positions q= 2, 3, 11, 13, 19, 23, 37, 41, 59, 73, 97..
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|