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
Robert Israel, Table of n, a(n) for n = 1..10000
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]):
P[J]; # Robert Israel, Jun 10 2024
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
Roger L. Bagula, Jul 02 2004
EXTENSIONS
Edited and extended by Robert G. Wilson v, Jul 14 2004
Edited by N. J. A. Sloane, Nov 07 2005
STATUS
approved