OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..200
MATHEMATICA
ls[n_]:=Module[{s=n+1, nt=DivisorSigma[0, n!]}, While[!Divisible[ DivisorSigma[0, s!], nt], s++]; s]; Array[ls, 70] (* Harvey P. Dale, Sep 18 2013 *)
PROG
(PARI) a(n)=if(n<0, 0, s=n+1; while(numdiv(s!)%numdiv(n!)>0, s++); s)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Sep 28 2002
STATUS
approved