carmichael_pseudoprimes.sf 1.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. #!/usr/bin/ruby
  2. var carmichael_pseudoprimes = []
  3. glob("../*.txt").map{File(_).open_r.lines...}.each {|line|
  4. line ~~ /\S/ || next
  5. if (line =~ /: (\d+)/) {|m|
  6. var n = Num(m[0])
  7. if (n.is_carmichael) {
  8. carmichael_pseudoprimes << n
  9. }
  10. }
  11. }
  12. carmichael_pseudoprimes.uniq.sort.each {|n|
  13. say n
  14. }
  15. __END__
  16. 1475848700732889373830194162325601
  17. 3268100361145348829145418232277601
  18. 4223355856878941803619053011835201
  19. 140180788912585415944132532435158801
  20. 458603675883864090371556910178991361
  21. 19437650134017769669169540406053451601
  22. 28483442904792793714249994928177336001
  23. 457604569395863450000232913593006702481
  24. 784847237124320370372564137368877454001
  25. 833751974935829615240268428579905132801
  26. 7666282391560072728616131720596323402201921
  27. 4468421779960414489095989666565639706581054001
  28. 14229898472572156698942942151389857784053522881
  29. 636638968913447674077791585280603688961234208961
  30. 731237776469048630006364290799977995547866748401
  31. 1545189173757761291293711251059416109257611027841
  32. 26576790677155268114498606528944868444918535828001
  33. 52690845067637280470833144741082257054058669196001
  34. 77981601744985289836703531413917302442751590482401
  35. 260919177521670237988562119476043503223447284435277530238358401
  36. 389337716105699654054666612850822088951080050696358405718502401