|
|
A128234
|
|
Values of n such that the average of p(n) and p(p(n)), where p(k) denotes the k-th prime, is prime.
|
|
1
|
|
|
8, 9, 11, 12, 19, 23, 28, 62, 64, 68, 71, 85, 95, 104, 114, 115, 131, 134, 175, 178, 181, 182, 200, 216, 240, 246, 247, 250, 266, 276, 277, 316, 346, 372, 382, 421, 429, 438, 440, 444, 445, 458, 469, 485, 494, 511, 518, 541, 543, 566, 568, 594, 596, 601, 604
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
LINKS
|
|
|
EXAMPLE
|
9 is in the sequence because p(9)=23, p(23)=83 and (23+83)/2 is prime.
|
|
MAPLE
|
a:=proc(n) if isprime((ithprime(n)+ithprime(ithprime(n)))/2)=true then n else fi end: seq(a(n), n=2..800);
|
|
MATHEMATICA
|
Select[Range[700], PrimeQ[Mean[{Prime[#], Prime[Prime[#]]}]]&] (* Harvey P. Dale, Nov 18 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|