|
%I #17 Dec 06 2021 03:17:35
%S 255803,704357,806857,884537,913103,1065173,1216213,1448533,1526227,
%T 1532507,1641007,1918607,2071123,2275103,2276467,2336707,2347627,
%U 2376757,2778583,3098597,3190637,3248977,3259037,3452143,3558517
%N Balanced primes separated from the next lower and next higher prime neighbors by 36.
%H Zak Seidov, <a href="/A053076/b053076.txt">Table of n, a (n) for n = 1..1000</a>
%F a(n) = A052197(n) + 36. - _Sean A. Irvine_, Dec 06 2021
%e 255803 is separated from both the next lower prime and the next higher prime by 36.
%t lst={};Do[p=Prime[n];If[p-Prime[n-1]==Prime[n+1]-p==6*6,AppendTo[lst,p]],{n,2,5*8!}];lst (* _Vladimir Joseph Stephan Orlovsky_, May 20 2010 *)
%t Transpose[Select[Partition[Prime[Range[260000]],3,1],Union[ Differences[#]] == {36}&]][[2]] (* _Harvey P. Dale_, Sep 28 2012 *)
%Y Cf. A052197.
%K easy,nonn
%O 1,1
%A _Harvey P. Dale_, Feb 25 2000
|
