OFFSET
1,1
EXAMPLE
a(10) = least prime beginning with 01, i.e. with 1, which is 11.
PROG
(PARI) okdigs(np, dfp) = {dnp = digits(np); xdnp = vector(#dfp, id, dnp[id]); return (xdnp == dfp); }
a(n) = {revn = subst(Polrev(digits(n), x), x, 10); dn = digits(revn); if (revn == 1, p = 2, p = precprime(revn)); while(! okdigs(p, dn), p = nextprime(p+1); ); p; } \\ Michel Marcus, Sep 16 2013
CROSSREFS
KEYWORD
base,easy,nonn,less
AUTHOR
Amarnath Murthy, Aug 10 2005
EXTENSIONS
More terms from Peter Soung (soung3(AT)hotmail.com), Mar 06 2006
STATUS
approved