OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
C. Cobeli and A. Zaharescu, A game with divisors and absolute differences of exponents, Journal of Difference Equations and Applications, Vol. 20, #11 (2014) pp. 1489-1501, DOI: 10.1080/10236198.2014.940337. Also available as arXiv:1411.1334 [math.NT], 2014.
FORMULA
a(n) = Product_{j=n..n+3} prime(j). - Jon E. Schoenfield, Jan 07 2015
MATHEMATICA
lst={}; Do[p0=Prime[n]; p1=Prime[n+1]; p2=Prime[n+2]; p3=Prime[n+3]; a=p0*p1*p2*p3; AppendTo[lst, a], {n, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Mar 10 2009 *)
Times@@@Partition[Prime[Range[50]], 4, 1] (* Harvey P. Dale, Sep 19 2011 *)
PROG
(Magma) [&*[ NthPrime(n+k): k in [0..3] ]: n in [1..26] ]; // Bruno Berselli, Feb 25 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Offset changed from 0 to 1 by Vincenzo Librandi, Jan 16 2012
STATUS
approved