OFFSET
1,2
EXAMPLE
The first 5 groups are (1), (2,3), (4,5,6), (7,8,9,10),
(11,12,13,14,15,16). The 5th group ends with 16 because
11*12*13*14*15*16 is divisible by 7*8*9*10, but 11*12*13*14*15 is not.
MATHEMATICA
a = {{1, 1}, {2, 2}}; Do[k = Last@ a[[i]]; While[! Divisible[Pochhammer[Total@ a[[i]], k], Pochhammer @@ a[[i]]], k++]; AppendTo[a, {Total@ a[[i]], k}], {i, 2, 16}]; Last /@ a (* Michael De Vlieger, Dec 15 2016 *)
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Amarnath Murthy, Apr 24 2004
EXTENSIONS
Edited and extended by David Wasserman, Mar 27 2006
STATUS
approved