1 2
NB. Takes a long time to run! (About 10-15min) problem357 =: +/>:I.(*./@:(1 p:[+|.)@:/:~@:,@:>@:(*/&.>/)@:((^i.@>:)&.>/)@:(__&q:)"0) >:i.100000000