Print[DateString[]];
c=0;While[c++;
PrimeQ[IntegerReverse[r=RandomPrime[{10^4999,2*10^4999}]]]==False];
Print[{DateString[], c}]; r
Tue 24 Mar 2026 13:20:15
{Thu 2 Apr 2026 14:16:15, 1459}
IntegerReverse[r]
Click on either number to check its primality.
No comments:
Post a Comment