login
A085468
Odd numbers m such that there is at least one k dividing (m-1)!-1 (m <= k <= 2*m).
2
1, 43, 45, 47, 49, 53, 97, 99, 121, 123, 169, 237, 273, 319, 329, 343, 367, 369, 375, 499, 533, 573, 581, 611, 617, 653, 661, 703, 719, 737, 747, 757, 787, 807, 833, 845, 879, 925, 931, 971, 981, 995, 1071, 1093, 1109, 1125, 1163, 1185, 1197, 1227, 1249, 1283, 1305
OFFSET
1,2
LINKS
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
Odd terms of A085477.
Sequence in context: A223746 A020442 A041923 * A113819 A190881 A045144
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Aug 14 2003
EXTENSIONS
More terms from Jinyuan Wang, Apr 03 2020
STATUS
approved