OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..100
EXAMPLE
a(6)=65432117 is smallest prime beginning with the string 654321.
MATHEMATICA
Flatten[Select[Join[10 #+Range[1, 9, 2], 100 #+Range[1, 99, 2]], PrimeQ, 1]&/@ Table[FromDigits[Flatten[IntegerDigits/@Range[n, 1, -1]]], {n, 25}]] (* Harvey P. Dale, Nov 04 2011 *)
PROG
(Python)
from sympy import isprime
def A053547(n):
s = int(''.join(str(m) for m in range(n, 0, -1)))
for i in range(1, 10):
s *= 10
for j in range(1, 10**i, 2):
x = s+j
if isprime(x):
return x
else:
return 'search limit reached.' # Chai Wah Wu, Jan 02 2015
CROSSREFS
KEYWORD
easy,nice,nonn,base
AUTHOR
Enoch Haga, Jan 16 2000
STATUS
approved