#!/usr/local/bin/perl -w

$_ = '1'.'2'x($ARGV[0]).'1';

while (/[1568]$/){s=([2-589]?[01358])=int(abs((67*$1-1467)*$1+1423)/140)=eg}
y/02678//d;
print length, "\n";

