OFFSET
1,4
MATHEMATICA
lkid[n_]:=Module[{k=1}, While[Max[Tally[Floor[(4k)/Range[2, n]]][[All, 2]]]> 1, k++]; k]; Array[lkid, 60] (* Harvey P. Dale, Jun 18 2018 *)
PROG
(PARI) a(n) = my(k=1); while(#Set(vector(n-1, m, 4*k\(m+1))) != n-1, k++); k; \\ Michel Marcus, Apr 26 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved