Trükkös - a Perl-féle regexp többletét nem ismerem.
Ha van jot telepítve (és pcre2), akkor
jot -s '' 13 1 1 | pcre2grep -q '^1?$|^(11+?)\1+$' || echo Prím
A (nem túl gyors) gépemen 79621-nél már kb. 2 másodperc, 209929-nál meg kb. 12 másodperc.
Trükkös - a Perl-féle regexp többletét nem ismerem.
Ha van jot telepítve (és pcre2), akkor
jot -s '' 13 1 1 | pcre2grep -q '^1?$|^(11+?)\1+$' || echo Prím
A (nem túl gyors) gépemen 79621-nél már kb. 2 másodperc, 209929-nál meg kb. 12 másodperc.