|
Search: id:A099936
|
|
|
| A099936 |
|
Primes of the form 1 + product of first n prime gaps. |
|
+0
1
|
|
| 2, 3, 5, 17, 257, 12289, 14155777, 169869313, 4076863489, 32318253138475745281, 12806790724213976503626296721408001, 307362977381135436087031121313792001
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
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]
|
|
PROGRAM
|
(PARI) for(n=1, 60, if(isprime(p=prod(m=1, n, prime(m+1)-prime(m))+1), print1(p, ", ")))
|
|
CROSSREFS
|
Sequence in context: A089983 A072858 A087911 this_sequence A092506 A127063 A127837
Adjacent sequences: A099933 A099934 A099935 this_sequence A099937 A099938 A099939
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 12 2004
|
|
EXTENSIONS
|
Edited by Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Nov 15 2004
|
|
|
Search completed in 0.002 seconds
|
