Enumerate a number of Belphegor numbers

belphegor.zsh

#!/usr/bin/env zsh
zmodload zsh/mathfunc
MAX=5
DEVIL=666
if [ ! -z "$1" ]
then
    MAX=$((abs($1)))
fi
if [ ! -z "$2" ]
then
    DEVIL=$((abs($2)))
fi
m=0
i=0
while [ "$m" -lt "$MAX" ]
do
    zeros=$(for k in `seq $i`;do echo -n 0;done)
    belphegor=$(echo "1 $zeros $DEVIL $zeros 1" | sed -e 's/ //g')
    if ! openssl prime $belphegor | grep not > /dev/null
    then
        echo $i
        ((m++))
    fi
    ((i++))
done
exit 0

See A232448 for more info.