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 * A258372 A096847 A011993

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