Program XXX; (* *) (* See https://theweeklychallenge.org/blog/perl-weekly-challenge-154 *) (* *) (* *) (* Run as: fpc -och-1.out ch-2.p; ./ch-2.out *) (* *) begin writeln ('2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057') end.