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

%I #9 Jul 28 2024 19:44:23

%S 2,131,11311,1114111,111181111,11112721111,1111118111111,

%T 111111151111111,11111112521111111,1111111111111111111,

%U 111111111161111111111,11111111111111111111111,1111111111129211111111111,111111111111212111111111111,11111111111111611111111111111

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

%H Sean A. Irvine, <a href="/A071606/b071606.txt">Table of n, a(n) for n = 0..100</a>

%t 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}]

%Y Cf. A028989.

%K nonn,base

%O 0,1

%A _Lekraj Beedassy_, Jun 21 2002

%E Edited by _Robert G. Wilson v_, Jun 21 2002

%E More terms from _Sean A. Irvine_, Jul 28 2024