randprime:=proc(n) global Pr,choose; #This process will find a random prime with n digits using Maples isprime(a) command. n = number of digits in prime, Pr = global output name of prime.; Pr:=1; while not isprime(Pr) do choose:=rand(10^(n-1)..10^n);Pr:=choose(); isprime(Pr); end do; print("Pr" = Pr); end proc: Example randprime(1000); L1EjUHI2IiJjaW44IXBPYCtFZVdfI1FFUlEhR0peTlYyZCU9Yjt4Iio+ZXBjMlxDJD0xc3gpKmU3eCw9Lk82WVwsJGVGMyJSaHpESUZQZmIkPlY/OXopKlsnPmgxLiNba2VHejBVP3ZLP2ohMyJvLCUqb2lANSlRTyUpUlZBNSh5OSNmWClcKXlsPVxbLnMzZSJHYyFvXFYqXDIsa00jUWooWzNZTmg+MnhMLSNSc3I9UkU0JlstLlsiXGpBMClwYG4iSCh6QWk/T1hbayhILyM+ODYhUWkkUUMrJ3l4OyM0U3d2JCpRRm0xPyo9cD8/RnQhPj9BI2U+O2tMMTFSQj9KJSlRV0JPZHA/JmUhZTAoenAzPE4kR05oI1InKlxMODxePE02bWEvI1xYYi1MUSopZVo8WS0hcDcmKXBFPCU9dyo9O1khKikqZlEoPmsoZXNTSHlneCdvMCMpKj1pXVRlViFcaSJIInpMMyc+LEZzMEgibz5vQl4qeSZIJlsiUlxFLXQ+WUBTSisqW1Y/XkRAQiNvJSkqKVtNbCRHPDZyajsxJlI0O3dfLFYnPTNPWnljVWhpYGg1Kj0heTJgImZURkJ3Im9JSXZwKVIsIypHJGU+RUttSGJ3L2pvayRIJylSQCUzJT1sWktaZlIyRFlZTHRjcElAWXUkb0ElXEZRdHFELUUmeSdldTlnQnUvKmVpUnk8O0ZKL2wpelNJbzxyJ2Yhelo2IXpFd3dadk1vZGQjKWZfJXk7KA== isprime(100000037); SSV0cnVlRyUqcHJvdGVjdGVkRw==