1,1

Tested to 4500. [From Robert G. Wilson v, Sep 28 2010]

Table of n, a(n) for n=1..20.

Index entries for sequences related to numbers of primes of the form k*n!+-1

fQ[n_] := PrimeQ[9 n! + 1]; k = 0; lst = {}; While[k < 1501, If[ fQ@k, AppendTo[lst, k]; Print@k]; k++ ]; lst

Sequence in context: A074223 A029459 A014862 * A061943 A029507 A047552

Adjacent sequences: A180623 A180624 A180625 * A180627 A180628 A180629

nonn

Robert G. Wilson v, Sep 13 2010

a(17)-a(20) from Robert G. Wilson v, Sep 28 2010

approved