A085468 Odd numbers m such that there is at least one k dividing (m-1)!-1 (m <= k <= 2*m).

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

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

Odd terms of A085477.

Sequence in context: A223746 A020442 A041923 * A113819 A190881 A045144

Adjacent sequences: A085465 A085466 A085467 * A085469 A085470 A085471

Keyword

nonn

Author

Benoit Cloitre, Aug 14 2003

Extensions

More terms from Jinyuan Wang, Apr 03 2020

Status

approved