cp's OEIS Frontend

A367351 Analog of A121805, but starting with 7.

%I A367351 #9 Nov 18 2023 11:54:48
%S A367351 7,85,136,197,269,362,385,439,534,579,675,732,759,857,936
%N A367351 Analog of A121805, but starting with 7.
%t A367351 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 *)
%o A367351 (Python)
%o A367351 def agen(start=7): # generator of terms
%o A367351     an, y = start, 1
%o A367351     while y < 10:
%o A367351         yield an
%o A367351         an, y = an + 10*(an%10), 1
%o A367351         while y < 10:
%o A367351             if str(an+y)[0] == str(y):
%o A367351                 an += y
%o A367351                 break
%o A367351             y += 1
%o A367351 print(list(agen())) # _Michael S. Branicky_, Nov 18 2023
%Y A367351 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.
%Y A367351 Cf. A330128, A330129.
%K A367351 nonn,fini,full,base
%O A367351 1,1
%A A367351 _N. J. A. Sloane_, Nov 17 2023