# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a048797
Showing 1-1 of 1

%I A048797 #15 Aug 05 2024 15:48:07
%S A048797 3,157,211,257,367,557,977,997,1381,1511,1531,2467,2503,2621,2777,
%T A048797 2861,3049,3307,3617,4099,4357,4373,4397,4463,4523,4691,4831,4919,
%U A048797 5087,5209,5261,5351,5407,5483,5807,6173,6229,6287,6619,6871,7001,7187,7459,7577
%N A048797 Primes p such that pp'-2 is prime, where p' denotes the next prime after p.
%H A048797 Amiram Eldar, <a href="/A048797/b048797.txt">Table of n, a(n) for n = 1..10000</a>
%e A048797 3*5 - 2 = 13, a prime, so 3 is a term of the sequence.
%t A048797 Prime[ Select[ Range[1000], PrimeQ[ Prime[ # ]Prime[ # + 1] - 2] &]]
%t A048797 Select[Prime[Range[1000]],PrimeQ[# NextPrime[#]-2]&] (* _Harvey P. Dale_, Aug 05 2024 *)
%o A048797 (PARI) lista(nn) = {my(p=2); forprime(q=3, nn, if (isprime(p*q-2), print1(p, ", ")); p = q;);} \\ _Michel Marcus_, Sep 28 2019
%Y A048797 Cf. A123921, A124669.
%K A048797 nonn
%O A048797 1,1
%A A048797 _Joseph L. Pe_, Jan 15 2002

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE