OFFSET
1,2
COMMENTS
LINKS
Rémy Sigrist, Rows n = 1..17, flattened
EXAMPLE
1!:1
2!:1,2 -> 2 as 1 has already appeared
3!:1,2,3,6 -> 3,6
4!:1,2,3,4,6,8,12,24 -> 4,8,12,24
MATHEMATICA
lst = {1}; Do[lst = Join[lst, Complement[Divisors[n!], Divisors[(n - 1)!]]], {n, 2, 9}]; lst (* Vladimir Joseph Stephan Orlovsky, Jul 07 2011 *)
CROSSREFS
KEYWORD
AUTHOR
Jon Perry, Jun 18 2003
EXTENSIONS
Extended by Ray Chandler, Aug 23 2005
STATUS
approved