prog.sf 580 B

1234567891011121314151617181920212223242526
  1. #!/usr/bin/ruby
  2. # Number n such that omega(sigma(n,n)) = bigomega(sigma(n,n))
  3. # Known terms:
  4. # 1, 2, 4, 5, 8, 9, 12, 13, 16, 20, 22, 25, 29, 32, 36, 37, 38, 40, 41, 44, 48, 49, 58, 61, 62, 64, 68, 72, 73, 76, 80, 88, 92, 96, 98, 101, 104, 109, 112, 113, 116, 117, 118
  5. # Inspired by:
  6. # https://oeis.org/A352420
  7. include("../../../factordb/auto.sf")
  8. func a(n) {
  9. var f = sigma_factors(n, n)
  10. #var f = sigma_factors_symbolic(n, n)
  11. f.map { FF_factordb(_) }.flat
  12. }
  13. for n in (1..1000) {
  14. var f = a(n)
  15. if (f.len == f.uniq.len) {
  16. print(n, ", ")
  17. }
  18. }