prog.sf 397 B

12345678910111213141516171819202122232425262728293031
  1. #!/usr/bin/ruby
  2. # https://oeis.org/draft/A231735
  3. # a(37) >= 5340
  4. func a(n, from = 5340) {
  5. for k in (from .. 1e6) {
  6. say "Testing: #{k}"
  7. if (n * k**k - 1 -> is_prob_prime) {
  8. die "Found: #{k}"
  9. #return k
  10. }
  11. }
  12. }
  13. say a(37, 5340) # from 5340
  14. __END__
  15. for n in (38..50) {
  16. say [n, a(n)]
  17. }
  18. __END__
  19. [38, 1]
  20. [39, 6]
  21. [40, 6]
  22. [41, 2]
  23. [42, 1]