OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..9
MATHEMATICA
Select[Table[10^n - 2*n - 1, {n, 0, 200}], PrimeQ] (* Vincenzo Librandi, Dec 01 2012 *)
PROG
(Magma) [a: n in [0..200] | IsPrime(a) where a is 10^n - 2*n - 1]; // Vincenzo Librandi, Dec 01 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Feb 26 2010
STATUS
approved