A064218 Least k such that k*10^n +/- 1 are twin primes.

4, 3, 6, 3, 18, 240, 24, 3, 174, 93, 57, 141, 465, 501, 105, 822, 552, 324, 555, 237, 867, 1488, 543, 2556, 1050, 105, 51, 429, 1470, 147, 567, 1329, 636, 5016, 645, 4713, 1116, 1029, 462, 567, 5757, 951, 5547, 1245, 2823, 5931, 1989, 525, 6246, 1716

Offset: 0

Author

Robert G. Wilson v, Sep 21 2001

Keywords

• nonn

Crossrefs

Cf. A063983, A064213, A064214, A064215, A064217, A064220, A064221.

Programs

Mathematica

Do[ k = 1; While[ ! PrimeQ[ k*10^n + 1 ] || ! PrimeQ[ k*10^n - 1 ], k++ ]; Print[ k ], {n, 0, 50} ]

Extensions

Offset corrected by Georg Fischer, May 01 2022