cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A051507 Primes p such that p*q+2 is prime, where q is next prime after p.

This page as a plain text file.
%I A051507 #30 Mar 05 2020 10:37:37
%S A051507 3,5,7,13,19,67,149,179,229,239,241,269,277,307,313,397,401,419,439,
%T A051507 487,569,613,643,701,823,863,887,1051,1289,1319,1489,1609,1693,1783,
%U A051507 1873,1999,2143,2239,2309,2423,2539,2549,2593,2617,2729,2753,2819
%N A051507 Primes p such that p*q+2 is prime, where q is next prime after p.
%H A051507 Charles R Greathouse IV, <a href="/A051507/b051507.txt">Table of n, a(n) for n = 1..10000</a>
%t A051507 Prime[Select[Range[1000], PrimeQ[Prime[#]*Prime[# + 1] + 2] &]]
%t A051507 Reap[Do[If[PrimeQ[(p=Prime[k])*Prime[k+1]+2],Sow[p]],{k,1,430}]][[2,1]] (* _Zak Seidov_, Dec 05 2010 *)
%o A051507 (Sage) A051507 = list(p for p in primes(10**4) if is_prime(p*next_prime(p)+2)) # _D. S. McNeil_, Dec 04 2010
%o A051507 (PARI) p=2;forprime(q=3,1e4,if(isprime(p*q+2),print1(p", ")); p=q) \\ _Charles R Greathouse IV_, May 01 2011
%Y A051507 Cf. A048880.
%K A051507 nonn,easy
%O A051507 1,1
%A A051507 _N. J. A. Sloane_