login
Primes of the form 1 + product of first n prime gaps.
1

%I #9 Jan 02 2021 15:18:10

%S 2,3,5,17,257,12289,14155777,169869313,4076863489,

%T 32318253138475745281,12806790724213976503626296721408001,

%U 307362977381135436087031121313792001

%N Primes of the form 1 + product of first n prime gaps.

%H Harvey P. Dale, <a href="/A099936/b099936.txt">Table of n, a(n) for n = 1..25</a>

%t w[n_]=Prime[n+1]-Prime[n] p[n_]=1+Product[w[m], {m, 2, n}] digits=60 a=Delete[Union[Table[If[PrimeQ[p[n]]==True, p[n], 0], {n, 1, digits}]], 1]

%t Select[FoldList[Times,Differences[Prime[Range[100]]]]+1,PrimeQ] (* _Harvey P. Dale_, Jan 02 2021 *)

%o (PARI) for(n=1,60,if(isprime(p=prod(m=1,n,prime(m+1)-prime(m))+1),print1(p,",")))

%K nonn,easy

%O 1,1

%A _Roger L. Bagula_, Nov 12 2004

%E Edited by _Klaus Brockhaus_, Nov 15 2004