A178321 Numbers k such that 58/111*(10^(3*k)-1)-1 is prime.
1, 2, 15, 74, 278, 541, 668, 1320, 1780, 1874, 4824, 13310, 20420, 24887
Offset: 1
Programs
-
Mathematica
Do[If[PrimeQ[58/111*(10^(3 n) - 1) - 1], Print[n]], {n, 1874}]
Extensions
a(11)-a(14) from Robert Price, Oct 20 2014
Comments