euler41.sh


1
2
3

# Pandigital prime is at most 7 digits, because 1+...+8 and 1+...+9 is multiply of 3
for i in 76{1..5}{1..5}{1..5}{1..5}{1,3,5} ; do factor $i; done | sed -e '/[0-9] /d' | cut -d':' -f1 \
  | sed $(for i in {1..7} ; do printf '\x2de /%d.*%d/d ' $i $i ; done)