|
Search: id:A086125
|
|
|
| A086125 |
|
Values of n such that f(n) is a prime, where f(1) = 1, f(n) = prime(n)*f(n-1) + 2. |
|
+0
1
|
| |
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
f[1]=1; f[x_] := f[x] = Prime[x]*f[x - 1] + 2; Do[ If[ PrimeQ[ f[n]], Print[n]], {n, 1, 1900}]
|
|
CROSSREFS
|
The primes are in A086124.
Cf. A000668, A076481, A086122, A086123, A086124.
Sequence in context: A068030 A052325 A092603 this_sequence A061030 A036661 A145671
Adjacent sequences: A086122 A086123 A086124 this_sequence A086126 A086127 A086128
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 23 2003
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 25 2003
|
|
|
Search completed in 0.002 seconds
|
