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