|
%I #9 Jul 26 2018 15:05:53
%S 5,11,17,29,41,53,59,71,97,101,107,137,149,157,173,179,191,197,211,
%T 223,227,239,257,263,269,281,311,347,373,397,419,431,457,461,487,499,
%U 521,541,563,569,593,599,607,617,641,653,659,673,733,769,809,821,827,857
%N Primes, q, such that for three consecutive primes, p, q & r, with p<q<r, (q - p)/(r - q) is an integer.
%C The distance between the cited prime above to its immediate predecessor is divisible by the distance from that prime to its immediate successor.
%C Intersection(A184247, A184248): 5, 53, 157, 173, 211, ..., = A006562: Balanced primes (of order 1).
%H Harvey P. Dale, <a href="/A184247/b184247.txt">Table of n, a(n) for n = 1..1000</a>
%t fQ[n_] := Block[{p = NextPrime[n, -1], q = n, r = NextPrime[n]}, IntegerQ[(q - p)/(r - q)]]; Select[ Prime@ Range[2, 50], fQ]
%t Select[Partition[Prime[Range[150]],3,1],IntegerQ[(#[[2]]-#[[1]])/(#[[3]]- #[[2]])]&][[All,2]] (* _Harvey P. Dale_, Jul 26 2018 *)
%Y Cf. A184248.
%K easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Jan 10 2011
|
