|
|
A046972
|
|
Primes arising in A046966.
|
|
17
|
|
|
2, 3, 7, 31, 181, 1621, 19441, 311041, 6842881, 171072001, 4961088001, 153793728001, 5382780480001, 252990682560001, 14420468905920001, 879648603261120001, 58056807815233920001, 4586487817403479680001, 371505513209681854080001, 40122595426645640240640001
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
k = 1; a = {}; Do[If[PrimeQ[k n + 1], k = k n; AppendTo[a, k + 1]], {n, 1, 1000}]; a (* Artur Jasinski, Sep 19 2008 *)
|
|
CROSSREFS
|
Cf. A144717, A144718, A144722, A144723, A144724, A144725, A144726, A144727, A144728, A144729, A144730, A144731. [Artur Jasinski, Sep 19 2008]
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|