cp's OEIS Frontend

A088256 Primorial numbers k such that both k-1 and k+1 are prime.

%I A088256 #48 Mar 31 2023 16:04:36
%S A088256 6,30,2310
%N A088256 Primorial numbers k such that both k-1 and k+1 are prime.
%C A088256 Conjecture: sequence is finite.
%C A088256 No more terms in the first 300 primorials. - _David Wasserman_, Jul 25 2005
%C A088256 Search extended to first 700 primorials by _Michael De Vlieger_, Aug 31 2016
%C A088256 Intersection of A014574 and A002110. - _Michel Marcus_, Dec 03 2016
%C A088256 Search extended to first 3000 primorials. - _Josey Stevens_, Aug 10 2021
%C A088256 The first more than 230000 primorial numbers k have been checked for whether k-1 or k+1 or both are primes. See links. If another term k exists, it is over about 10^1400000. - _Jeppe Stig Nielsen_, Oct 19 2021
%H A088256 Chris K. Caldwell, <a href="https://primes.utm.edu/top20/page.php?id=5">The Top Twenty: Primorial</a>, in the Prime Pages.
%H A088256 PrimeGrid, <a href="http://prpnet.primegrid.com:12008/">PRPNet: Primorial Prime Search - Server Statistics</a>.
%e A088256 210 = primorial(4) is not a member as 209 is composite.
%p A088256 f:= proc(n)
%p A088256   local P;
%p A088256   P:= mul(seq(ithprime(i),i=1..n));
%p A088256   if isprime(P+1) and isprime(P-1) then P else NULL fi
%p A088256 end proc:
%p A088256 map(f, [$1..300]); # _Robert Israel_, Aug 31 2016
%t A088256 Select[Times @@ # & /@ Prime@ Range@ Range@ 700, Times @@ Boole@ PrimeQ@ {# - 1, # + 1} == 1 &] (* _Michael De Vlieger_, Aug 31 2016 *)
%t A088256 Select[FoldList[Times,Prime[Range[20]]],AllTrue[#+{1,-1},PrimeQ]&] (* _Harvey P. Dale_, Mar 31 2023 *)
%o A088256 (PARI) lista(nn) = for (n=1, nn, pr = prod(i=1, n, prime(i)); if (isprime(pr-1) && isprime(pr+1), print1(pr, ", "))); \\ _Michel Marcus_, Aug 31 2016
%Y A088256 Cf. A001097, A002110, A088257, A014574, A119411, A136349.
%K A088256 more,nonn,bref
%O A088256 1,1
%A A088256 _Amarnath Murthy_, Sep 27 2003
%E A088256 Corrected by _Ray Chandler_, Sep 28 2003