%I #26 Sep 21 2015 20:40:04
%S 31,536,2684,7795,8482,49009,96339,236060
%N Numbers n such that 10^(n-1) - pi(n) is prime.
%C a(9) > 260843.
%t Select[Range[50000], PrimeQ[10^(# - 1) - PrimePi[#]] &]
%o (PARI) is(n) = ispseudoprime(10^(n-1) - primepi(n)) \\ _Michel Marcus_, Sep 10 2015
%Y Cf. A110068.
%K more,nonn
%O 1,1
%A _Robert Price_, Sep 09 2015