A056703 Numbers n such that 3*10^n - 1 is prime.
0, 1, 3, 6, 7, 19, 27, 43, 55, 207, 1311, 3204, 7050, 9439, 26044, 33058, 34507, 49314, 119292
Offset: 1
Links
Programs
-
Mathematica
Do[ If[ PrimeQ[ 2*10^n + (10^n-1)], Print[n]], {n, 0, 3000}] Select[Range[200000],PrimeQ[3*10^#-1]&] (* Harvey P. Dale, Sep 29 2012 *)
-
PARI
is(n)=ispseudoprime(3*10^n-1) \\ Charles R Greathouse IV, Jun 12 2017
Extensions
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 01 2008
Comments