|
|
A108231
|
|
a(n) = the first prime in the earliest sequence of 2n+1 consecutive primes whose average is prime.
|
|
0
|
|
|
3, 71, 7, 463, 31, 43, 5, 7, 499, 821, 109, 97, 271, 263, 179, 97, 181, 47, 233, 1931, 359, 227, 1787, 443, 29, 131, 1061, 229, 599, 1931, 7, 317, 53, 2207, 811, 11549, 2411, 2879, 5531, 937, 2371, 293, 21001, 659, 643, 1187, 2927, 4567, 131, 263, 8419, 349
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
71 is the first prime in the earliest sequence of 5 = 2 * 2 + 1 consecutive primes whose average is a prime, since (71 + 73 + 79 + 83 + 89)/5 = 79. Therefore a(2) = 71.
|
|
MATHEMATICA
|
f[n_] := Block[{k = 1}, While[ !PrimeQ[ Sum[ Prime[j], {j, k, 2n + k}]/(2n + 1)], k++ ]; Prime[k]]; Table[ f[n], {n, 52}] (* Robert G. Wilson v, Jun 21 2005 *)
Module[{prs=Prime[Range[25000]]}, Table[SelectFirst[Partition[ prs, 2n+1, 1], PrimeQ[ Mean[ #]]&], {n, 60}]][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 25 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|