carmichael_pseudoprimes.sf

#!/usr/bin/ruby

var carmichael_pseudoprimes = []

glob("../*.txt").map{File(_).open_r.lines...}.each {|line|
    line ~~ /\S/ || next

    if (line =~ /: (\d+)/) {|m|

        var n = Num(m[0])

        if (n.is_carmichael) {
            carmichael_pseudoprimes << n
        }
    }
}

carmichael_pseudoprimes.uniq.sort.each {|n|
    say n
}

__END__
1475848700732889373830194162325601
3268100361145348829145418232277601
4223355856878941803619053011835201
140180788912585415944132532435158801
458603675883864090371556910178991361
19437650134017769669169540406053451601
28483442904792793714249994928177336001
457604569395863450000232913593006702481
784847237124320370372564137368877454001
833751974935829615240268428579905132801
7666282391560072728616131720596323402201921
4468421779960414489095989666565639706581054001
14229898472572156698942942151389857784053522881
636638968913447674077791585280603688961234208961
731237776469048630006364290799977995547866748401
1545189173757761291293711251059416109257611027841
26576790677155268114498606528944868444918535828001
52690845067637280470833144741082257054058669196001
77981601744985289836703531413917302442751590482401
260919177521670237988562119476043503223447284435277530238358401
389337716105699654054666612850822088951080050696358405718502401