1,3
Tested to 4700. [From Robert G. Wilson v, Sep 27 2010]
Table of n, a(n) for n=1..18.
Index entries for sequences related to numbers of primes of the form k*n!+-1
fQ[n_] := PrimeQ[8 n! - 1]; k = 0; lst = {}; While[k < 1501, If[ fQ@k, AppendTo[lst, k]; Print@k]; k++ ]; lst
Sequence in context: A168382 A155701 A119529 * A096847 A011993 A180169
Adjacent sequences: A180626 A180627 A180628 * A180630 A180631 A180632
nonn
Robert G. Wilson v, Sep 13 2010
a(15)-a(18) from Robert G. Wilson v, Sep 27 2010
approved