OFFSET
0,1
MATHEMATICA
Do[ k = 1; While[ ! PrimeQ[ k*10^n + 1 ] || ! PrimeQ[ k*10^n - 1 ], k++ ]; Print[ k ], {n, 0, 50} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 21 2001
EXTENSIONS
Offset corrected by Georg Fischer, May 01 2022
STATUS
approved