login
A367351
Analog of A121805, but starting with 7.
9
7, 85, 136, 197, 269, 362, 385, 439, 534, 579, 675, 732, 759, 857, 936
OFFSET
1,1
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.
Sequence in context: A370934 A254569 A183177 * A058795 A027459 A329108
KEYWORD
nonn,fini,full,base
AUTHOR
N. J. A. Sloane, Nov 17 2023
STATUS
approved