#!/usr/bin/perl

@p = (2,3,5,7,11,13,17,19);

for $a (0..7) {
  for $b (($a+1)..7) {
    for $c (($b+1)..7) {
  print ($p[$a]+$p[$b]+$p[$c]);
  print "\n";
}}}