OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
EXAMPLE
For term 1127, we find only '9'1127 to be prime.
MATHEMATICA
aQ[n_] := Total@Boole@PrimeQ[Table[FromDigits[Prepend[IntegerDigits[n], i]], {i, 9}]] == 1; Select[Range[1130], aQ[#]&] (* Jayanta Basu, Jun 03 2013 *)
PROG
(Python)
from sympy import isprime
print([i for i in range(1000) if [isprime(int(j + str(i))) for j in '123456789'].count(True) == 1]) # Daniel Starodubtsev, Apr 06 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, May 15 1998
STATUS
approved