login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A057588 Kummer numbers: -1 + product of first n consecutive primes. 37
1, 5, 29, 209, 2309, 30029, 510509, 9699689, 223092869, 6469693229, 200560490129, 7420738134809, 304250263527209, 13082761331670029, 614889782588491409, 32589158477190044729, 1922760350154212639069 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
COMMENTS
a(n) is congruent to -1 modulo the first n primes. - Michael Engling, Mar 31 2011
Named after the German mathematician Ernst Eduard Kummer (1810-1893). - Amiram Eldar, Jun 19 2021
LINKS
E. E. Kummer, Neuer elementarer Beweis des Satzes, dass die Anzahl aller Primzahlen eine unendliche ist, Monatsber. Preuss. Akad. Wiss., Berlin 1878/9, pp. 777-778. [Collected Papers, II, pp. 669-670, Springer, Berlin-Heidelberg, 1975.] Cited in Mestrovic.
Romeo Meštrović, Euclid's theorem on the infinitude of primes: a historical survey of its proofs (300 BC--2012) and another new proof, arXiv preprint arXiv:1202.3670 [math.HO], 2012. - From N. J. A. Sloane, Jun 13 2012
Robert G. Wilson v, Explicit factorizations.
FORMULA
a(n) = A002110(n) - 1. - Altug Alkan, Oct 02 2015
MAPLE
seq(mul(ithprime(k), k=1..n) - 1, n=1..100); # Muniru A Asiru, Jan 19 2018
MATHEMATICA
Table[Product[Prime[k], {k, 1, n}] - 1, {n, 1, 18}] (* Artur Jasinski, Jan 01 2007 *)
FoldList[Times, 1, Prime[Range[20]]]-1 (* Harvey P. Dale, Apr 17 2011 *)
Table[ChineseRemainder[PadRight[{}, n, -1], Prime[Range[n]]], {n, 20}] (* Harvey P. Dale, Jul 01 2017 *)
PROG
(Haskell)
a057588 = (subtract 1) . product . (flip take a000040_list)
-- Reinhard Zumkeller, Mar 27 2013
(PARI) a(n) = prod(k=1, n, prime(k)) - 1; \\ Michel Marcus, Oct 02 2015
(Python)
from sympy import primorial
def A057588(n): return primorial(n)-1 # Chai Wah Wu, Feb 25 2023
CROSSREFS
Cf. A002110, A006862, A057705 (primes), A000040.
Sequence in context: A301878 A331798 A103213 * A030522 A091124 A121143
KEYWORD
nonn,easy,nice
AUTHOR
Mario Velucchi (mathchess(AT)velucchi.it), Oct 05 2000
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), Oct 05 2000
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 16 14:46 EDT 2024. Contains 371749 sequences. (Running on oeis4.)