A296059 Numbers k such that (10^k/8 + 1)/9 is prime.
4, 7, 16, 43, 58, 106, 160, 229, 628, 1579, 3805, 16153, 31420
Offset: 1
Examples
139, 138889, and 138888888888889 are prime, so 4, 7, and 16 are in the sequence.
Crossrefs
Cf. A296029.
Programs
-
Mathematica
Select[Range[2000], PrimeQ[(10^#/8 + 1)/9] &] (* Michael De Vlieger, Dec 06 2017 *) ParallelMap[ If[ PrimeQ[(10^#/8 +1)/9], #, Nothing] &, Range@ 10000] (* Robert G. Wilson v, Dec 08 2017 *)
-
PARI
isok(k) = (k>2) && isprime((10^k/8 + 1)/9); \\ Michel Marcus, Dec 05 2017
Extensions
a(8)-a(11) from Jon E. Schoenfield, Dec 04 2017
a(12)-a(13) from Robert Price, Apr 24 2018
Comments