A093172 Primes of the form 10^n - 3.
7, 97, 997, 99999999999999997
Offset: 1
Keywords
Links
Programs
-
Mathematica
Do[If[PrimeQ[10^n - 3], Print[10^n - 3]], {n, 100}] (* Farideh Firoozbakht, Nov 27 2013 *) Select[Table[FromDigits[PadLeft[{7},n,9]],{n,25}],PrimeQ] (* Harvey P. Dale, Dec 12 2020 *)
-
PARI
for(n=1,9, if(isprime(p=10^n-3), print1(p", "))) \\ Charles R Greathouse IV, Dec 13 2024
Extensions
Name shortened and old name moved to comments by Alex Ratushnyak, Apr 26 2012
Comments