OFFSET
1,2
COMMENTS
Conjectured to contain all positive integers not multiple of 10.
LINKS
Éric Angelini, Prime bayonets, personal web site "Cinquante signes" on blogspot.com, May 03 2022.
PROG
(PARI) u=[a=1]; vector(99, n, if(a>u[1]+1, u=setunion(u, [a]), u[1]=a; while(#u>1 && u[2]==u[1]+1+(u[1]%10==9), u=u[^1])); a%=10; my(k=u[1], d); n>1&& until(k++%10 && !setsearch(u, k) && (isprime(10*a+d=k\10^logint(k, 10)) || isprime(10*d+a)), ); a=k)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler and Eric Angelini, May 03 2022
STATUS
approved