foreach $int (2, map {$_*2+1} (1 .. ($no/4)) {
  ....