A083982 Smallest palindromic prime containing the digit string of n.

101, 11, 2, 3, 11411, 5, 10601, 7, 181, 191, 101, 11, 12421, 131, 11411, 151, 16061, 17471, 181, 191, 30203, 12421, 72227, 32323, 12421, 1250521, 36263, 727, 12821, 929, 10301, 131, 32323, 13331, 14341, 353, 16361, 373, 383, 13931, 30403, 11411

Offset

0,1

Links

Chai Wah Wu, Table of n, a(n) for n = 0..1000

Example

1311131 contains the palindrome 111.

Mathematica

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 *)

Crossrefs

Cf. A002113, A085054.

Sequence in context: A085054 A084045 A085419 * A369956 A029948 A174926

Adjacent sequences: A083979 A083980 A083981 * A083983 A083984 A083985

Keyword

base,nonn

Author

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 22 2003

Extensions

Corrected and extended by Ray Chandler, Jun 11 2003

Edited by N. J. A. Sloane, Nov 01 2008 at the suggestion of R. J. Mathar

Status

approved