A118764 Inverse of A118763.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 10, 21, 22, 23, 24, 25, 26, 27, 28, 20, 29, 31, 32, 33, 34, 35, 36, 37, 38, 39, 30, 41, 42, 43, 44, 45, 46, 47, 48, 40, 49, 51, 52, 53, 54, 55, 56, 57, 58, 59, 50, 61, 62, 63, 64, 65, 66, 67, 68, 60, 69, 71, 72, 73
Offset: 0
Keywords
Links
Crossrefs
Cf. A118758.
Programs
-
Mathematica
(* first do Mmca in A118763, then *) Flatten@ Table[Position[s, n], {n, 0, 100}] - 1 (* Robert G. Wilson v, Sep 22 2016 *)
Comments