|
%I #23 Dec 06 2021 03:17:51
%S 16787,40063,42533,96377,98597,104207,119267,123887,160117,161807,
%T 169283,181813,185267,208553,209743,232777,235723,243367,246073,
%U 260363,261823,270097,295387,295727,302483,315223,331423,362027,364103,373693
%N Primes p such that p-24, p and p+24 are consecutive primes.
%C In other words, balanced primes separated from the next lower and next higher prime neighbors by 24.
%H Zak Seidov, <a href="/A053074/b053074.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A052190(n) + 24. - _Sean A. Irvine_, Dec 06 2021
%e 40063 is separated from both the next lower prime and the next higher prime by 24;
%e 104207 - 24 = 104183 is prime, 104207 + 24 = 104231 is prime, and 104207 is the only prime between 104183 and 104231.
%p for i from 1 by 1 to 40000 do if ithprime(i+1) = ithprime(i) +24 and ithprime(i+2) = ithprime(i) + 48 then print(ithprime(i+1)); fi; od; # _Zerinvary Lajos_, May 04 2007
%t lst={};Do[p=Prime[n];If[p-Prime[n-1]==Prime[n+1]-p==6*4,AppendTo[lst,p]],{n,2,8!}];lst (* _Vladimir Joseph Stephan Orlovsky_, May 20 2010 *)
%t Transpose[Select[Partition[Prime[Range[40000]],3,1],Differences[#]=={24,24}&]][[2]] (* _Harvey P. Dale_, May 20 2014 *)
%Y Cf. A052190.
%K easy,nonn
%O 1,1
%A _Harvey P. Dale_, Feb 25 2000
%E Edited by _N. J. A. Sloane_, Jul 03 2008 at the suggestion of _R. J. Mathar_
%E Edited by _Jon E. Schoenfield_, Jan 09 2015
|
