A053982 Numbers n such that 1 + product of first n composite numbers is prime.

1, 3, 7, 11, 16, 22, 39, 76, 116, 139, 149, 169, 179, 220, 372, 429, 1216

Offset

1,2

Links

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

Mathematica

Composite[n_Integer] := (k = n + PrimePi[n] + 1; While[k - PrimePi[k] - 1 != n, k++ ]; k); Do[ If[ PrimeQ[ Product[ Composite[k], {k, 1, n} ] + 1], Print[ n ] ], {n, 1, 430} ]
Position[FoldList[Times, Select[Range[1500], CompositeQ]], _?(PrimeQ[#+1]&)]//Flatten (* Harvey P. Dale, Dec 20 2022 *)

Crossrefs

Cf. A002808, A000040, A057017.

Sequence in context: A118027 A082644 A131024 * A118000 A121640 A319258

Adjacent sequences: A053979 A053980 A053981 * A053983 A053984 A053985

Keyword

nonn

Author

G. L. Honaker, Jr., Apr 02 2000

Extensions

More terms from Jeppe Stig Nielsen, Apr 16 2000 (terms from 76 on correspond to probable primes)

429 and 1216 from Robert G. Wilson v, Apr 20 2001

Edited by T. D. Noe, Oct 30 2008

Status

approved