OFFSET
1,1
EXAMPLE
n=9 is in the sequence because n10n = 9109 is prime.
n=113 is in the sequence because n10n = 11310113 is prime.
n=219 is in the sequence because n10n = 21910219 is prime.
MATHEMATICA
n10pQ[n_]:=Module[{idn=IntegerDigits[n]}, PrimeQ[FromDigits[Join[idn, {1, 0}, idn]]]]
Select[Range[1000], n10pQ] (* Harvey P. Dale, Feb 22 2011 *)
PROG
(Magma) [ n: n in [0..1000] | IsPrime(Seqint(Intseq(n) cat [0, 1] cat Intseq(n))) ]; // Klaus Brockhaus, Feb 03 2011
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Parthasarathy Nambi, Mar 30 2005
STATUS
approved