Prime number fud

prime.awk

END {
    for ( i = 1; i < 100; i++) {
        arr[i] = i
    }
    for (p = 2;p < 49; p++) {
        for (i = p*2; i < 100; i += p) {
            delete arr[i]
        }
    }
    for ( i = 1; i < 100; i++) {
        if (i in arr) {
            print arr[i]
            }
    }
}