010 REM 
020 REM See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
030 REM 

040 REM 
050 REM Run as: basic ch-1.bas
060 REM 

100 PRINT "2 3 5 7 13 17 23 37 43 47 53 67 73 83 97 113 137 167 173 197"