OFFSET
1,1
COMMENTS
It appears that terms > 6 are simply given by: composite k such that k^2 doesn't divide A000254(k). - Benoit Cloitre, Mar 09 2004
It appears that A011776(a(k)) = 2. - Gionata Neri, Jul 31 2017
It appears that this sequence consists of the numbers k such that A045763(k) > 0 and k does not divide A070251(k). - Isaac Saffold, Jun 01 2018
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..670 (a(n) < 10^4, from b-file at A002034).
MATHEMATICA
Select[Range@ 514, Function[n, Module[{m = 1}, While[! Divisible[m!, n], m++]; m] == Max@ Differences@ Divisors@ n]] (* Michael De Vlieger, Jul 31 2017 *)
PROG
(PARI) K(n) = my(s=1); while(s!%n>0, s++); s;
dd(n) = my(vd=divisors(n)); vecmax(vector(#vd-1, k, vd[k+1] - vd[k]));
isok(n) = K(n) == dd(n); \\ Michel Marcus, Aug 03 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Sep 10 2002
STATUS
approved