OFFSET
1,1
COMMENTS
Contrary to A099629, this sequence is evidently infinite. Essentially [for more than 2 digits] consists of pairs of {nextprime[10^j],prevprime[10^(j+1)]}.
MATHEMATICA
Join[{11, 11}, Flatten[Table[{NextPrime[10^n], NextPrime[10^(n+1), -1]}, {n, 2, 20}]]] (* Harvey P. Dale, Jun 04 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Oct 26 2004
EXTENSIONS
Corrected and extended by Harvey P. Dale, Jun 04 2018
STATUS
approved