A024645 n written in fractional base 8/3.
0, 1, 2, 3, 4, 5, 6, 7, 30, 31, 32, 33, 34, 35, 36, 37, 60, 61, 62, 63, 64, 65, 66, 67, 310, 311, 312, 313, 314, 315, 316, 317, 340, 341, 342, 343, 344, 345, 346, 347, 370, 371, 372, 373, 374, 375, 376, 377, 620, 621, 622, 623, 624, 625, 626, 627, 650, 651, 652, 653, 654, 655
Offset: 0
Links
Crossrefs
Cf. A245347.
Programs
-
Mathematica
a[n_] := a[n] = If[n == 0, 0, 10 * a[3 * Floor[n/8]] + Mod[n, 8]]; Array[a, 50, 0] (* Amiram Eldar, Aug 02 2025 *)
-
PARI
a(n) = if(n == 0, 0, 10 * a(n\8 * 3) + n % 8); \\ Amiram Eldar, Aug 02 2025
Comments