A120804 Primes with consecutive digits descending.

2, 3, 5, 7, 43, 109, 10987, 76543, 10987654321098765432109876543210987, 4321098765432109876543210987654321098765432109876543210987654321

Offset

1,1

Comments

Digits can be in descending order. After 0 comes 9.

a(15) has 1053 digits. - Michael S. Branicky, Aug 05 2022

Links

Paul Tek, Table of n, a(n) for n = 1..14

Mathematica

f[n_] := Block[{d = Reverse@ Range@n, t = Table[1, {n}]}, Select[ Drop[ Union@ Flatten@ Table[ FromDigits[ Mod[d + i*t, 10]], {i, 10}], 2], PrimeQ@# &]]; Array[f, 1000] // Flatten

Prog

(Python)
from sympy import isprime
from itertools import count, islice
def bgen(): yield from (int("".join(str((s0-i)%10) for i in range(d))) for d in count(1) for s0 in range(1, 10))
def agen(): yield from filter(isprime, bgen())
print(list(islice(agen(), 10))) # Michael S. Branicky, Aug 05 2022

Crossrefs

Cf. A006055, A120805.

Sequence in context: A083820 A244556 A279954 * A092066 A224904 A028981

Adjacent sequences: A120801 A120802 A120803 * A120805 A120806 A120807

Keyword

nonn,base

Author

Robert G. Wilson v, Jul 05 2006

Extensions

Corrected by Paul Tek, May 08 2013

Status

approved