A095373 Integers k such that A095372(k) = 1 + 90*(-1+100^k)/99 is prime.
2, 3, 8, 15, 26, 33, 146, 320, 1068, 1505
Offset: 1
Examples
Corresponding primes are: 9091, 909091, 909090909090909091, 909090909090909090909090909091, ...
Programs
-
Mathematica
{ta=Table[0, {100}], u=1}; Do[s=1+(90*(100^n-1)/99);If[PrimeQ[s], Print[{n, s}]; ta[[u]]=s;u=u+1], {n, 1, 320}] ta
Extensions
a(9)-a(10) from Max Alekseyev, Jan 28 2012
Comments