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

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

100 PRINT "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057"