OFFSET
1,1
MAPLE
t0:=[]; u0:=[]; for n from 0 to 500 do p0:="10"; p1:="01"; t1:=cat(p0, n, p1); t1:=convert(t1, decimal, 10); if isprime(t1) then t0:=[op(t0), n]; u0:=[op(u0), t1]; fi; od: u0;
MATHEMATICA
p = Select[ Range[280], PrimeQ[ FromDigits[Join[{1, 0}, IntegerDigits[ # ], {0, 1}]]] &]; Table[ FromDigits[ Join[{1, 0}, IntegerDigits[ p[[n]]], {0, 1}]], {n, 29}] (* Robert G. Wilson v, Nov 20 2004 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Nov 19 2004
STATUS
approved