|
%I #5 Jul 29 2018 18:33:42
%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
|
