OFFSET
1,1
COMMENTS
The next term (a(8)) has 248 digits. [From Harvey P. Dale, Dec 29 2011]
MATHEMATICA
Select[10^Range[0, 400] - 59, PrimeQ] (* Harvey P. Dale, Dec 29 2011 *)
Select[Table[FromDigits[PadLeft[{4, 1}, n, 9]], {n, 2, 400}], PrimeQ] (* Harvey P. Dale, Feb 08 2024 *)
PROG
(Magma) [a: n in [2..250] | IsPrime(a) where a is 10^n-59];
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Dec 11 2010
STATUS
approved