User Portlet
| Discussions |
|---|
| Prime[50000] M[n_] = 2 10^5 + 0 10^4 + 1 10^3 + 5 10^2 + n Do[If[PrimeQ[M[n]], Print[M[n]]], {n, 1, 99}] M[p_, q_] = p 10^5 + 2 10^4 + 0 10^3 + 1 10^2 + 6 10 + q Do[If[PrimeQ[M[p, q]], Print[M[p, q]]],... |