seq =: dyad define "0 n =. 0 primes =. 0 while. 1 p: y+(n*x)+n*n do. n =. n+1 primes =. primes+1 end. primes ) max =: 1000 range =: max-~i.>:max*2 tab =: seq/~range rowIx =: {. \: >./"1 tab colIx =: {. \: rowIx { tab problem27 =: */range{~rowIx,colIx