A024642 n written in fractional base 7/5.
0, 1, 2, 3, 4, 5, 6, 50, 51, 52, 53, 54, 55, 56, 530, 531, 532, 533, 534, 535, 536, 5310, 5311, 5312, 5313, 5314, 5315, 5316, 5360, 5361, 5362, 5363, 5364, 5365, 5366, 53140, 53141, 53142, 53143, 53144, 53145, 53146, 53620, 53621, 53622, 53623, 53624, 53625
Offset: 0
Links
Crossrefs
Cf. A245352.
Programs
-
Mathematica
a[n_] := a[n] = If[n == 0, 0, 10 * a[5 * Floor[n/7]] + Mod[n, 7]]; Array[a, 50, 0] (* Amiram Eldar, Jul 31 2025 *)
-
PARI
a(n) = if(n == 0, 0, 10 * a(n\7 * 5) + n % 7); \\ Amiram Eldar, Jul 31 2025
Comments