The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A093078 Primes p = prime(i) such that p(i)# - p(i+1) is prime. 2
 5, 7, 11, 13, 19, 79, 83, 89, 149, 367, 431, 853, 4007, 8819, 8969 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Hisanori Mishima, PI Pn - NextPrime (n = 1 to 100). EXAMPLE 3 = p(2) is in the sequence because p(2)# + p(3) = 11 is prime. MATHEMATICA Do[p = Product[ Prime[i], {i, 1, n}]; q = Prime[n + 1]; If[ PrimeQ[p - q], Print[ Prime[n]]], {n, 1, 1435}] Module[{nn=1120, pr1, pr2, prmrl}, pr1=Prime[Range[nn]]; pr2=Prime[Range[ 2, nn+1]]; prmrl=FoldList[Times, pr1]; Transpose[Select[Thread[{pr1, pr2, prmrl}], PrimeQ[#[[3]]-#[[2]]]&]][[1]]] (* Harvey P. Dale, Dec 07 2015 *) CROSSREFS Cf. A087714, A088415, A093077. Sequence in context: A339347 A167460 A045439 * A314298 A314299 A349459 Adjacent sequences:  A093075 A093076 A093077 * A093079 A093080 A093081 KEYWORD nonn,more AUTHOR Robert G. Wilson v, Oct 25 2003 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 23 13:57 EST 2022. Contains 350511 sequences. (Running on oeis4.)