%I #20 Aug 23 2021 13:37:08
%S 53,53,317,2393,23333,373393,2399333,23399339,1979339333,103997939939,
%T 4099339193933,145701173999399393,2744903797739993993333,
%U 52327811119399399313393,13302806296379339933399333
%N Smallest prime such that the n numbers obtained by removing 1 digit on the right are also prime, while no digit can be added on the right to get another prime.
%C Inspired by article on 43 in Archimedes' Lab link.
%H G. A. Sarcone and M. J. Waeber, <a href="http://www.archimedes-lab.org/numbers/Num24_69.html">What's Special About This Number?</a>, Archimedes' Lab website.
%e a(0)=53 because 53 is the smallest prime such that all numbers obtained by adding a digit to the right are composite.
%e a(1)=53 because 5 and 53 are primes.
%e a(2)=317 because 3, 31, 317 are all primes, and 317 has the same property as 53 when adding a digit to the right.
%o (PARI) a(n) = {n++; v = vector(n); i = 1; ok = 0; until (ok, while ((i>1) && (v[i] == 9), v[i] = 0; i--); if (i == 1, v[i] = nextprime(v[i]+1), v[i] = v[i]+1); curp = sum (j=1, i, v[j]*(10^(i-j))); if (isprime(curp), if (i != n, i++, nbp = 0; for (z=1, 9, if (isprime(10*curp+z), nbp++);); if (nbp == 0, ok = 1);););); sum (j=1, n, v[j]*(10^(n-j)));}
%o (Python)
%o from sympy import isprime, nextprime
%o def a(n):
%o p, oo = 2, float('inf')
%o while True:
%o extends, reach, r1 = 0, [str(p)], []
%o while len(reach) > 0 and extends <= n:
%o minnotext = oo
%o for s in reach:
%o wasextended = False
%o for d in "1379":
%o if isprime(int(s+d)): r1.append(s+d); wasextended = True
%o if not wasextended: minnotext = min(minnotext, int(s))
%o if extends == n and minnotext < oo: return minnotext
%o if len(r1) > 0: extends += 1
%o reach, r1 = r1, []
%o p = nextprime(p)
%o for n in range(12): print(a(n), end=", ") # _Michael S. Branicky_, Aug 08 2021
%Y Cf. A024770, A119289, A227919, A239747.
%K nonn,base,more
%O 0,1
%A _Michel Marcus_, Nov 19 2013
%E a(12)-a(13) from _Michael S. Branicky_, Aug 08 2021
%E a(14) from _Michael S. Branicky_, Aug 23 2021