|
Search: id:A085419
|
|
|
| A085419 |
|
Smallest palindromic prime containing n. |
|
+0
2
|
|
| 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
(list; graph; listen)
|
|
|
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}]
|
|
CROSSREFS
|
Cf. A002113, A085054.
Sequence in context: A060386 A062584 A085054 this_sequence A029948 A029949 A083152
Adjacent sequences: A085416 A085417 A085418 this_sequence A085420 A085421 A085422
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 28 2003
|
|
|
Search completed in 0.002 seconds
|
