OFFSET
1,1
COMMENTS
Primes p such that p+1 is in A052216.
Primes of the following form in base 10: 1, followed by 0 or more 0's, then 1 or more 9's.
LINKS
Robert Israel, Table of n, a(n) for n = 1..2000
MAPLE
select(isprime, [seq(seq(10^n+10^m-1, m=1..n), n=1..15)]);
MATHEMATICA
Select[Flatten[Table[FromDigits[Join[PadRight[{1}, n, 0], PadRight[{}, m, 9]]], {n, 20}, {m, 20}]], PrimeQ]//Sort (* Harvey P. Dale, May 15 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Mar 13 2019
STATUS
approved