#!/bin/sh

# prime-numbers.sh - prime numbers printing
#
# (c) 2002-2004 Ondrej Jombik <nepto@platon.sk> [3/2/2002]
#
# $Platon: $

perl -le '$_ = 1; (1 x $_) !~ /^(11+)\1+$/ && print while $_++';