|
PROGRAM
|
(PARI) /* n=number of values to test, r=repeat digits, eg., 14, 121, 177, 1234, etc.
d = last digit appended to the end*/
repr(n, r, d) = ln=length(Str(r)); for(x=0, n, y=(10^(ln*x)-1)*10*r/
(10^ln-1)+1; if(ispseudoprime(y), print1(ln*x", ")))
|