|
|
A023107
|
|
Largest integer in which every prefix is prime in base n (written in base 10).
|
|
17
|
|
|
71, 191, 2437, 108863, 6841, 4497359, 1355840309, 73939133, 6774006887, 18704078369, 122311273757, 6525460043032393259, 927920056668659, 16778492037124607, 4928397730238375565449, 5228233855704101657, 3013357583408354653, 1437849529085279949589, 101721177350595997080671, 185720479816277907890970001
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
3,1
|
|
COMMENTS
|
Or, largest right-truncatable prime with base n>2 (in decimal form).
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|