OFFSET
0,1
MATHEMATICA
Do[ k = 1; While[ ! PrimeQ[ k*11^n + 1 ] || ! PrimeQ[ k*11^n - 1 ], k++ ]; Print[ k ], {n, 0, 50} ]
lk[n_]:=Module[{c=11^n, k=1}, While[!PrimeQ[k*c+1]||!PrimeQ[k*c-1], k++]; k]; Array[lk, 50, 0] (* Harvey P. Dale, Jun 15 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 21 2001
EXTENSIONS
Offset corrected by Georg Fischer, May 01 2022
STATUS
approved