%I #16 Mar 07 2024 08:33:03
%S 101,11,2,3,11411,5,10601,7,181,191,101,11,12421,131,11411,151,16061,
%T 17471,181,191,30203,12421,72227,32323,12421,1250521,36263,727,12821,
%U 929,10301,131,32323,13331,14341,353,16361,373,383,13931,30403,11411
%N Smallest palindromic prime containing the digit string of n.
%H Chai Wah Wu, <a href="/A083982/b083982.txt">Table of n, a(n) for n = 0..1000</a>
%e 1311131 contains the palindrome 111.
%t f[n_] := Block[{k = 0, s = ToString[n]}, While[ !PrimeQ[k] || FromDigits[ Reverse[ IntegerDigits[k]]] != k || StringPosition[ ToString[k], s] == {}, k++ ]; k]; Table[ f[n], {n, 0, 41}] (* _Robert G. Wilson v_, Jun 28 2003 *)
%Y Cf. A002113, A085054.
%K base,nonn
%O 0,1
%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 22 2003
%E Corrected and extended by _Ray Chandler_, Jun 11 2003
%E Edited by _N. J. A. Sloane_, Nov 01 2008 at the suggestion of _R. J. Mathar_
|