isok.sf 251 B

1234567891011
  1. #!/usr/bin/ruby
  2. # Let b(n) be the smallest odd composite k such that q^((k-1)/2) == -1 (mod k) for every prime q <= prime(n).
  3. func isok(n, k) {
  4. n.prime.primes.all {|q|
  5. powmod(q, (k-1)/2, k) == k-1
  6. }
  7. }
  8. say isok(7, 614796634515444067)