login
A083982
Smallest palindromic prime containing the digit string of n.
4
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
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
Sequence in context: A085054 A084045 A085419 * A369956 A029948 A174926
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