zOs/REXX.O13/PRIME

parse arg st
st = trunc(100000/9)  + 5
say 'starting from st' st
cnt = 0
do n=st + 1 - st//2 by -2 while cnt < 20
    do d=3 by 2 to n-2 while n // d \= 0
        end
    if d > n-2 then do
        say n '1:'right(100000//N,5) '4:'right(400000//N, 5),
              '8:'right(800000//N,5) '12:'right(1200000//N, 5)
        cnt = cnt + 1
        end
    end