OFFSET
1,1
COMMENTS
It is known that a(n) > 0 for n >= 4.
REFERENCES
R. Honsberger, Mathematical Diamonds, MAA, 2003, see p. 79. [Added by _N. J. A. Sloane_, Jul 05 2009]
H. Rademacher & O. Toeplitz, The Enjoyment of Mathematics, pp. 187-192 Dover NY 1990.
J. V. Uspensky and M. A. Heaslet, Elementary Number Theory, McGraw-Hill, NY, 1939.
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..100
S. Bulman-Fleming and E. T. H. Wang, Problem 356, College Math. J., 20 (1989), 265.
Wikipedia, Bonse's inequality
MATHEMATICA
FoldList[Times, Most[#]] - Rest[#]^2 & [Prime[Range[25]]] (* _Paolo Xausa_, Nov 06 2024 *)
PROG
(PARI) { p=1; for (n=1, 100, p*=prime(n); write("b064819.txt", n, " ", p - prime(n + 1)^2) ) } \\ _Harry J. Smith_, Sep 27 2009
(PARI) a(n) = prod(k=1, n, prime(k)) - prime(n+1)^2; \\ _Michel Marcus_, Jun 19 2018
(Python)
from sympy import prime, primorial
def A064819(n): return primorial(n)-prime(n+1)**2 # _Chai Wah Wu_, Feb 24 2023
CROSSREFS
KEYWORD
sign
AUTHOR
_N. J. A. Sloane_, Oct 23 2001
STATUS
approved