|
|
A095651
|
|
Primes p = p_(n+1) such that p_n + p_(n+2) = 2*p_(n+1) + 16.
|
|
8
|
|
|
523, 887, 1129, 2557, 3271, 3739, 3947, 4027, 4159, 4423, 4759, 4831, 5449, 6397, 6427, 6451, 7351, 7459, 8017, 8543, 8783, 8867, 9067, 9349, 10433, 10667, 11177, 11447, 11597, 11867, 12049, 13063, 13267, 13421, 13729, 14011, 14087, 14107
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Primes that are fourth prime chords.
These come from music based on the prime differences where the chords are an even number of note steps from the primary note.
|
|
LINKS
|
|
|
MAPLE
|
P:= select(isprime, [seq(i, i=1..20000, 2)]):
J:= select(i -> P[i-1]+P[i+1] = 2*P[i]+16, [$2..nops(P)-1]):
|
|
MATHEMATICA
|
m = 4; Prime[ 1 + Select[ Range[1700], Prime[ # + 2] - 2*Prime[ # + 1] + Prime[ # ] - 4*m == 0 &]] (* Robert G. Wilson v, Jul 14 2004 *)
Select[Partition[Prime[Range[3000]], 3, 1], #[[1]]+#[[3]]==2#[[2]]+16&][[;; , 2]] (* Harvey P. Dale, Jul 08 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|