|
| |
|
|
A144726
|
|
a(n)= smallest positive integer k such that a(0)*a(1)*a(2)*...*a(n) + 1 is prime. a(0)=5
|
|
13
| |
|
|
2, 3, 5, 7, 10, 12, 14, 15, 19, 21, 26, 29, 30, 39, 41, 56, 62, 77, 96, 105, 112, 113, 115, 121, 136, 145, 159, 168, 188, 236, 240, 258, 281, 305, 324, 362, 376, 422, 521, 588, 639, 643, 652, 695, 698, 737, 770, 776, 784, 806, 807, 809, 818, 959, 1023, 1060, 1071
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| k = 5; a = {}; Do[If[PrimeQ[k n + 1], k = k n; AppendTo[a, n]], {n, 1, 3000}]; a (*Artur Jasinski*)
|
|
|
CROSSREFS
| A046966, A046972, A144717, A144718, A144722, A144723, A144724, A144725, A144726, A144727, A144728, A144729, A144730, A144731
Sequence in context: A169802 A194948 A191211 * A123885 A010062 A119565
Adjacent sequences: A144723 A144724 A144725 * A144727 A144728 A144729
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Sep 19 2008
|
| |
|
|
