OFFSET
1,1
COMMENTS
Also numbers k such that 2520 | k*(k+1). - David A. Corneth, May 06 2021
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000 (first 1001 terms from Harvey P. Dale)
FORMULA
a(n) = 2520 + a(n-4), n >= 5. - David A. Corneth, May 06 2021
EXAMPLE
720 is divisible by 2, 3, 4, 5, 6, 8, 9 and 10; while 721 is divisible by 7.
MATHEMATICA
Select[Range[30000], Mod[ #, 8]*Mod[ # + 1, 8] == 0 && Mod[ #, 9]*Mod[ # + 1, 9] == 0 && Mod[ #, 5]*Mod[ # + 1, 5] == 0 && Mod[ #, 7]*Mod[ # + 1, 7] == 0 && Mod[ #, 8]*Mod[ # + 1, 8] == 0 && Mod[ #, 6]*Mod[ # + 1, 6] == 0 && Mod[ #, 10]*Mod[ # + 1, 10] == 0 &]
Select[Range[23000], Take[Union[Join[Divisors[#], Divisors[#+1]]], 10] == Range[ 10]&]// Quiet (* Harvey P. Dale, Jul 03 2020 *)
PROG
(PARI) first(n) = { my(res = List([720, 1799, 2519, 2520])); for(i = 5, n, listput(res, res[i-4]+2520)); res } \\ David A. Corneth, May 06 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Tanya Khovanova, Sep 13 2007
EXTENSIONS
Offset changed to 1 by David A. Corneth, May 06 2021
STATUS
approved