A260371 a(n) = A260351(n) - A023811(n), where A260351 is the limit of the orbit of 0 under x -> x + (largest digit not in x) and A023811 is the largest metadrome, both in base n.
0, 0, 3, 20, 0, 6, 56, 0, 9, 110, 1848, 12, 208, 210, 270, 272, 0, 124182, 16017
Offset: 2
Examples
a(10) = 123456798 - 123456789 = 9.
Links
- Wieb Bosma, Rene Bruin, Robbert Fokkink, Jonathan Grube, Anniek Reuijl, and Thian Tromp, Using Walnut to solve problems from the OEIS, arXiv:2503.04122 [math.NT], 2025. See p. 3.
Programs
-
Mathematica
Table[s = 0; t = 1; While[t != 0, t = Complement[Range[0, b - 1], IntegerDigits[s, b]][[-1]]; s = s + t]; s - Total[(#1 b^#2) & @@@ Transpose@ {Range[b - 1], Reverse@ (Range[b - 1] - 1)}], {b, 2, 8}] (* Michael De Vlieger, Jul 24 2015, after Hans Havermann at A260351 *)
Extensions
a(14) from Giovanni Resta, Jul 24 2015
a(15)-a(22) from Hiroaki Yamanouchi, Aug 01 2015
Comments