%I

%S 98,997,99995,9999993,99999999989,9999999999987,99999999999999983,

%T 9999999999999999981,99999999999999999999977,

%U 99999999999999999999999999971,9999999999999999999999999999969

%N 10^p - p for prime p.

%t Table[10^p-p,{p,Prime[Range[20]]}] (* _Harvey P. Dale_, Jul 29 2018 *)

%o (PARI) tenpmp(n)= { forprime(x=2,n, print1(10^x-x",") ) }

%K nonn

%O 2,1

%A _Cino Hilliard_, Nov 23 2003