A265746 Jacobsthal greedy base (A265747) interpreted as base-3 numbers, then shown in decimal.
0, 1, 2, 3, 4, 9, 10, 11, 12, 13, 18, 27, 28, 29, 30, 31, 36, 37, 38, 39, 40, 81, 82, 83, 84, 85, 90, 91, 92, 93, 94, 99, 108, 109, 110, 111, 112, 117, 118, 119, 120, 121, 162, 243, 244, 245, 246, 247, 252, 253, 254, 255, 256, 261, 270, 271, 272, 273
Offset: 0
Links
- Antti Karttunen, Table of n, a(n) for n = 0..10923
Programs
-
Mathematica
a[n_] := FromDigits[IntegerDigits[A265747[n]], 3]; Array[a, 100, 0] (* Amiram Eldar, Jul 21 2023 using A265747[n] *)
-
PARI
a(n) = fromdigits(digits(A265747(n)), 3); \\ Amiram Eldar, Jul 21 2023, using A265747(n)
Comments