OFFSET
1,2
EXAMPLE
a(3) = 3 because 4*6*8-1 = 191 which is prime.
MATHEMATICA
Composite[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1 != n, k++ ]; k); Do[ m = n; If[ PrimeQ[ Product[ Composite[ k ], {k, 1, n} ] - 1 ], Print[ n ] ], {n, 1, 1980} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 21 2001
EXTENSIONS
More terms via A049421 from Jeppe Stig Nielsen, Aug 12 2024
STATUS
approved