|
| |
|
|
A100301
|
|
Primes resulting from A085013.
|
|
1
|
|
|
|
5, 17, 107, 1367, 31397, 910457, 33686837, 1448533907, 88360568207, 6450321478967, 574078611627887, 78648769793020247, 11875964238746056997, 1983286027870591518167, 394673919546247712114837
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..15.
|
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ ! PrimeQ[k], k++ ]; k]; a[0] = 1; a[n_] := a[n] = Block[{p = NextPrim[ a[n - 1]], q = Product[a[i], {i, 0, n - 1}]}, While[ !PrimeQ[p*q + 2], p = NextPrim[p]]; p]; Table[ Product[ a[i], {i, n}] + 2, {n, 16}] (* Robert G. Wilson v, Jan 12 2005 *)
|
|
|
CROSSREFS
|
Cf. A100276. Different from A098028.
Sequence in context: A235871 A240803 A098028 * A084167 A267143 A331636
Adjacent sequences: A100298 A100299 A100300 * A100302 A100303 A100304
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Herman H. Rosenfeld (herm3(AT)pacbell.net), Dec 29 2004
|
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v, Jan 12 2005
|
|
|
STATUS
|
approved
|
| |
|
|
