A071606 Smallest zero-free palindromic prime of 2n + 1 digits.

2, 131, 11311, 1114111, 111181111, 11112721111, 1111118111111, 111111151111111, 11111112521111111, 1111111111111111111, 111111111161111111111, 11111111111111111111111, 1111111111129211111111111, 111111111111212111111111111, 11111111111111611111111111111

Offset: 0

Author

Lekraj Beedassy, Jun 21 2002

Keywords

• nonn
• base

Links

• Sean A. Irvine, Table of n, a(n) for n = 0..100

Crossrefs

Cf. A028989.

Programs

Mathematica

a[n_] := Block[{k = (10^(n + 1) - 1)/9}, While[m = FromDigits[ Join[ IntegerDigits[k], Reverse[ Drop[ IntegerDigits[k], -1]]]]; !PrimeQ[m], k++ ]; m]; Table[ a[n], {n, 0, 13}]

Extensions

Edited by Robert G. Wilson v, Jun 21 2002

More terms from Sean A. Irvine, Jul 28 2024