OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
MATHEMATICA
seqQ[n_] := AnyTrue[Range[n, 2n], Divisible[(n - 1)! - 1, #] &]; Select[2 * Range[700] - 1, seqQ] (* Amiram Eldar, Apr 23 2020 *)
PROG
(PARI) for(n=1, 650, if(sum(k=n, 2*n, if(((n-1)!-1)%k, 0, 1))>0, if(n%2==1, print1(n, ", "))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Aug 14 2003
EXTENSIONS
More terms from Jinyuan Wang, Apr 03 2020
STATUS
approved