OFFSET
1,1
MAPLE
t0:=[]; u0:=[]; for n from 1 to 100 do t1:=cat(1, n, 1); t1:=convert(t1, decimal, 10); if isprime(t1) then t0:=[op(t0), n]; u0:=[op(u0), t1]; fi; od: u0;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Nov 19 2004
STATUS
approved