A367351 Analog of A121805, but starting with 7.

7, 85, 136, 197, 269, 362, 385, 439, 534, 579, 675, 732, 759, 857, 936

Offset

1,1

Links

Table of n, a(n) for n=1..15.

Mathematica

b = 10; m = b - 1; a[1] = 7; a[n_] := a[n] = For[r = Mod[a[n - 1], b]; y = 0, y <= m, y++, If[y == IntegerDigits[#, b][[1]], Return[#]] &[a[n - 1] + b r + y]]; TakeWhile[Array[a, 45], IntegerQ] (* Michael De Vlieger, Nov 18 2023, after Jean-François Alcover at A121805 *)

Prog

(Python)
def agen(start=7): # generator of terms
    an, y = start, 1
    while y < 10:
        yield an
        an, y = an + 10*(an%10), 1
        while y < 10:
            if str(an+y)[0] == str(y):
                an += y
                break
            y += 1
print(list(agen())) # Michael S. Branicky, Nov 18 2023

Crossrefs

Comma sequences in base 10, starting with 1, 2, 4, 5, 6, 7, 8, 9, 10 are A121805, A139284, A366492, A367337, A367350, A367351, A367352, A367353, A367354. Starting with 3 is trivial, and those starting with 11, 12, 13 are essentially duplicates.

Cf. A330128, A330129.

Sequence in context: A370934 A254569 A183177 * A058795 A027459 A329108

Adjacent sequences: A367348 A367349 A367350 * A367352 A367353 A367354

Keyword

nonn,fini,full,base

Author

N. J. A. Sloane, Nov 17 2023

Status

approved