OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..200
EXAMPLE
a(3) = 61; 61 == 1 (mod 60), 60 = lcm(4,5,6).
MATHEMATICA
getp[n_]:=Module[{p=n+1}, While[!PrimeQ[p], p=p+n]; p]; getp/@With[{rr=15}, LCM@@#&/@TakeList[Range[(rr(rr+1))/2], Range[rr]]] (* Requires Mathematica version 11 or later *) (* Harvey P. Dale, Dec 19 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 24 2003
EXTENSIONS
More terms from David Wasserman, Jul 19 2005
STATUS
approved