|
|
A092927
|
|
Smallest prime of the form n(n-1)(n-2)...(n-k)+1, or 0 if no such prime exists.
|
|
6
|
|
|
2, 3, 7, 5, 61, 7, 43, 337, 73, 11, 991, 13, 157, 121080961, 211, 17, 14820309504001, 19, 0, 6841, 421, 23, 10627, 96909121, 601, 15601, 17551, 29, 173059286401, 31, 530122321, 29761, 3569119343741952001, 1123, 25622035084801, 37
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(8) = 8*7*6 +1 = 337.
|
|
MATHEMATICA
|
Flatten[Table[Select[Rest[FoldList[Times, 1, Range[n, 1, -1]]]+1, PrimeQ, 1]/. {}->{0}, {n, 40}]] (* Harvey P. Dale, Jul 10 2012 *)
|
|
PROG
|
(PARI) f(n, k)=prod(i=n-k, n, i)+1; a(n)=for (i=0, n, if(isprime(f(n, i)), print1(f(n, i)); break()))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 19 2004
|
|
STATUS
|
approved
|
|
|
|