|
%I #11 Jul 14 2015 23:17:41
%S 139,181,241,283,421,467,811,829,953,1021,1051,1153,1259,1307,1699,
%T 1723,1831,1879,2029,2089,2143,2221,2251,2297,2357,2423,2621,2731,
%U 3001,3191,3347,3361,3583,3769,3823,3853,4139,4219,4231,4243,4261,4273,4339,4373
%N Primes p = p_(n+1) such that p_n + p_(n+2) = 2*p_(n+1) + 8.
%C Primes that are second prime chords.
%C These come from music based on the prime differences where the chords are an even number of note steps from the primary note.
%H Harvey P. Dale, <a href="/A095649/b095649.txt">Table of n, a(n) for n = 1..1000</a>
%t m = 2; Prime[ 1 + Select[ Range[600], Prime[ # + 2] - 2*Prime[ # + 1] + Prime[ # ] - 4*m == 0 &]] (* _Robert G. Wilson v_, Jul 14 2004 *)
%t Transpose[Select[Partition[Prime[Range[600]],3,1],#[[1]]+#[[3]]==2#[[2]]+ 8&]][[2]] (* _Harvey P. Dale_, Feb 26 2015 *)
%Y Cf. A095419, A095420, A095648, A095650, A095651, A095672, A095673.
%K nonn
%O 1,1
%A _Roger L. Bagula_, Jul 02 2004
%E Edited by _Robert G. Wilson v_, Jul 14 2004
%E Description corrected by _N. J. A. Sloane_, Jul 19 2004
|
