A185893 Terms in A048398 ending with 1.

101, 12101, 32321, 210101, 432121, 1012321, 1212121, 3210101, 3210121, 3212101, 3232321, 3432101, 5432321, 5434321, 21212101, 21232121, 23210101, 23232101, 43432321, 45434321, 101012321, 101210101, 101232121, 121232101, 123210121, 123232121, 321012121

Offset

1,1

Comments

Among first 114956 terms, number of n-digit terms are: 0, 0, 1, 0, 2, 2, 9, 6, 22, 23, 32, 57, 166, 246, 382, 572, 1770, 2936, 3956, 6183, 18132, 30818, 49641.

Links

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Mathematica

Select[Prime[Range[100000]], IntegerDigits[#][[-1]] == 1 && Union[Abs[Differences[IntegerDigits[#]]]] == {1} &]

Prog

(Python 3.2 or higher)
from itertools import product, accumulate
from sympy import isprime
A185893_list = []
for l in range(1, 19):
    dlist = [1]*l
    for elist in product([-1, 1], repeat=l):
        flist = [str(d+e) for d, e in zip(dlist, accumulate(elist)) if 0 <= d+e < 10]
        if len(flist) == l and flist[-1] != '0':
            n = 10*int(''.join(flist[::-1])) + 1
            if isprime(n):
                A185893_list.append(n)
A185893_list = sorted(A185893_list) # Chai Wah Wu, May 31 2017

Crossrefs

Cf. A048398, A182781.

Sequence in context: A300570 A171825 A267937 * A156669 A082435 A136098

Adjacent sequences: A185890 A185891 A185892 * A185894 A185895 A185896

Keyword

nonn,base

Author

Zak Seidov, Feb 05 2011

Status

approved