|
|
A089344
|
|
Smallest prime(k) such that prime(k)-prime(k-n) is equal to prime(k+1)-prime(k).
|
|
3
|
|
|
5, 7, 619, 6581, 13933, 15823, 22307, 259033, 678659, 745757, 576791, 15014557, 35630467, 31515413, 264426203, 356604959, 364058659, 2529682091, 6868844179, 1457908691, 12799238129, 23294528897, 72106293983, 82160403553, 230966323927, 19187736221
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(4) = 6581, the next prime is 6599, 6599-6581 = 18, the four previous primes are 6563, 6569, 6571 and 6577. 6581-6563 = 18.
|
|
MATHEMATICA
|
f[n_] := Block[{k = n + 1}, While[ 2Prime[k] != Prime[k + 1] + Prime[k - n], k++ ]; Prime[k]]; Table[ f[n], {n, 17}] (* Robert G. Wilson v, Nov 11 2003 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|