Primes whose first and last number is 3: Difference between revisions

 

for d in 1:2:9

foreach(p -> print(rpad(last(p), 5), first(p) % 11 == 0 ? "\n" : ""),

println("\nTotal $(d)x$d primes less than 1,000,000: ", length(p3x3(1_000_000, 10, d)), ".")

end

</lang>{{out}}

<pre>

11 101 131 151 181 191 1021 1031 1051 1061 1091

1151 1171 1181 1201 1231 1291 1301 1321 1361 1381 1451

Total 1x1 primes less than 1,000,000: 2387.

 

3 313 353 373 383 3023 3083 3163 3203 3253 3313

3323 3343 3373 3413 3433 3463 3533 3583 3593 3613 3623

Total 3x3 primes less than 1,000,000: 2251.

 

5

Total 5x5 primes less than 1,000,000: 1.

 

Total 7x7 primes less than 1,000,000: 2104.

 

Total 9x9 primes less than 1,000,000: 2053.

</pre>