OFFSET
1,3
PROG
(Perl) my $n = 0, $t = 0, $i = 0;
for (; $n < 6293912; $n++, $t += $n) {
if ($t =~ m/^[014689]+$/) {
$i++;
print("$i $t\n");
}
} # Charles R Greathouse IV, Dec 17 2010
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, Nov 15 2005
STATUS
approved