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