%I #7 Sep 22 2014 19:42:36
%S 3,2,1,1,2,1,1,3,6,7,14,1,8,1,2,4,2,5,16,26,27,2,18,29,9,15,7,2,24,1,
%T 44,1,1,209,12,128,20,1,18,5,6,3,21,5,42,6,45,19,14,10,8,20,72,8,226,
%U 11,5,77,99,28,16,15,157,9,24,17,110,9,28,26,16,37,163,79,29,45,58,21,66
%N Least number k > 0 such that k!*n! - 1 is prime.
%C If a(n) = K, a(K) <= n for all n.
%C a(n) = 1 if and only if n is in A002982.
%o (PARI)
%o a(n)=k=1;while(!ispseudoprime(k!*n!-1),k++);k
%o n=1;while(n<100,print1(a(n),", ");n++)
%Y Cf. A002982, A231549.
%K nonn
%O 1,1
%A _Derek Orr_, Sep 10 2014
|