OFFSET
3,1
COMMENTS
Or, largest right-truncatable prime with base n>2 (in decimal form).
a(n) <= A094335(n).
LINKS
Martin Renner, Max Alekseyev and Giovanni Resta, Table of n, a(n) for n = 3..100
I. O. Angell and H. J. Godwin, On Truncatable Primes, Math. Comput. 31, 265-267, 1977.
N. J. A. Sloane, The Angell-Godwin table of initial terms of A023107 and A103443
Eric Weisstein's World of Mathematics, Truncatable Prime.
EXAMPLE
a(100) = 70123916363515199416199518301698321195339012727994799// 190371992151279729974757397909992327936943877127375781091143. - Giovanni Resta, Apr 11 2016
PROG
(PARI) a(n) = my(S, m, D); D=select(x->(gcd(x, n)==1), vector(n-1, j, j)); S=select(ispseudoprime, vector(n-1, i, i)); while(#S, m=vecmax(S); S=concat(vector(#D, j, select(ispseudoprime, vector(#S, i, S[i]*n+D[j])))); ); m /* Max Alekseyev, Dec 09 2014 */
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Don Reble, Jun 23 2004
a(54)-a(75) in b-file from Max Alekseyev, Dec 09 2014
a(76)-a(100) in b-file from Giovanni Resta, May 01 2016
STATUS
approved