OFFSET
1,2
COMMENTS
k < n(n+1)/2 as n! divides every product of n successive integers.
EXAMPLE
a(4) = 8 as 1!*2!*3!*4! = 288 divides 8!= 40320 but not 7! = 5040.
MAPLE
a:=proc(n) local A, k: A:={}: for k from 1 to n*(n+1)/2 do if type(k!/product(j!, j=1..n), integer)=true then A:=A union {k} else A:=A fi od: A[1]; end: seq(a(n), n=1..60); # not necessarily the best Maple program # Emeric Deutsch, Feb 03 2006
MATHEMATICA
lkprmrl[n_]:=Module[{k=1}, While[Mod[k!, n]!=0, k++]; k]; Module[{nn = 60, prmrl}, prmrl = FoldList[ Times, Range[nn]!]; lkprmrl/@prmrl] (* Harvey P. Dale, Mar 25 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 23 2004
EXTENSIONS
More terms from Emeric Deutsch, Feb 03 2006
STATUS
approved