%I #18 Dec 06 2021 03:18:10
%S 3565979,3653911,3985951,5425661,5647409,6127019,6292129,6532601,
%T 7134031,7360411,7389541,7700179,7865881,7956211,8467951,8708339,
%U 8972749,9203791,9603409,9863599,10279861,10971791,11998439,12225299
%N Balanced primes separated from the next lower and next higher prime neighbors by 48.
%H Zak Seidov, <a href="/A053078/b053078.txt">Table of n, a (n) for n = 1..1000</a>
%F a(n) = A329578(n) + 48. - _Sean A. Irvine_, Dec 06 2021
%e 3653911 is separated from both the next lower prime and the next higher prime by 48.
%t lst={};Do[p=Prime[n];If[p-Prime[n-1]==Prime[n+1]-p==6*8,AppendTo[lst,p]],{n,2,3*9!}];lst (* _Vladimir Joseph Stephan Orlovsky_, May 20 2010 *)
%t Transpose[Select[Partition[Prime[Range[810000]],3,1],Union[ Differences[ #]] == {48}&]][[2]] (* _Harvey P. Dale_, May 01 2013 *)
%Y Cf. A329578.
%K easy,nonn
%O 1,1
%A _Harvey P. Dale_, Feb 25 2000
|