|
%I #31 Sep 08 2022 08:45:11
%S 2,3,7,13,23,37,53,67,97,103,131,139,173,181,193,223,233,263,277,307,
%T 337,409,421,457,509,563,593,613,631,653,797,811,823,853,877,1013,
%U 1021,1039,1051,1087,1129,1223,1259,1283,1297,1307,1423,1447,1471,1483,1601
%N Primes such that the next two primes are a twin prime pair.
%C Primes p such that nextprime(p) + 2 is prime. - _Irina Gerasimova_, Jun 28 2013
%H Amiram Eldar, <a href="/A088175/b088175.txt">Table of n, a(n) for n = 1..10000</a>
%p A088175 := proc(n)
%p prevprime(A001359(n)) ;
%p end proc:
%p seq(A088175(n),n=1..30) ; # _R. J. Mathar_, Nov 26 2014
%t fQ[n_]:=PrimeQ[NextPrime[n]+2];Select[Prime@Range@500,fQ] (* _Vladimir Joseph Stephan Orlovsky_, Apr 16 2011 *)
%o (PARI) is(n)=isprime(n) && isprime(nextprime(n+1)+2) \\ _Charles R Greathouse IV_, Jun 28 2013
%o (Magma) [NthPrime(n): n in [1..260] | NthPrime(n+2)-NthPrime(n+1) eq 2]; // _Vincenzo Librandi_, Nov 18 2014
%Y Cf. A088176.
%K easy,nonn
%O 1,1
%A _Zak Seidov_, Sep 22 2003
%E More terms from _Ray Chandler_, Sep 25 2003
%E Definition clarified by _Irina Gerasimova_, Jun 28 2013
|
