A367354 Analog of A121805, but starting with 10.
10, 11, 23, 58, 139, 231, 243, 275, 328, 412, 436, 501, 516, 581, 596, 662, 688, 775, 833, 871, 889, 988, 1069, 1160, 1161, 1172, 1193, 1224, 1265, 1316, 1377, 1448, 1529, 1620, 1621, 1632, 1653, 1684, 1725, 1776, 1837, 1908, 1989, 2081, 2093, 2125, 2177, 2249, 2341, 2353
Offset: 1
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..20573
Crossrefs
Programs
-
Mathematica
a[1] = b = 10; m = b - 1; 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]]; Array[a, 50] (* Michael De Vlieger, Nov 18 2023, after Jean-François Alcover at A121805 *)
-
Python
from itertools import islice def agen(start=10): # 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(islice(agen(), 50))) # Michael S. Branicky, Nov 18 2023
Comments