A162598 Ordinal transform of A265332.
1, 1, 2, 1, 3, 4, 2, 1, 5, 6, 7, 3, 8, 4, 2, 1, 9, 10, 11, 12, 5, 13, 14, 6, 15, 7, 3, 16, 8, 4, 2, 1, 17, 18, 19, 20, 21, 9, 22, 23, 24, 10, 25, 26, 11, 27, 12, 5, 28, 29, 13, 30, 14, 6, 31, 15, 7, 3, 32, 16, 8, 4, 2, 1, 33, 34, 35, 36, 37, 38, 17, 39, 40, 41, 42, 18, 43, 44, 45, 19, 46, 47
Offset: 1
Links
- Antti Karttunen, Table of n, a(n) for n = 1..8192
- T. Kubo and R. Vakil, On Conway's recursive sequence, Discr. Math. 152 (1996), 225-252.
- Index entries for Hofstadter-type sequences
Crossrefs
Programs
-
Mathematica
terms = 100; h[1] = 1; h[2] = 1; h[n_] := h[n] = h[h[n - 1]] + h[n - h[n - 1]]; t = Array[h, 2*terms]; A051135 = Take[Transpose[Tally[t]][[2]], terms]; b[_] = 1; a[n_] := a[n] = With[{t = If[n == 1, 1, A051135[[n]]]}, b[t]++]; Array[a, terms] (* Jean-François Alcover, Dec 19 2021, after Robert G. Wilson v in A051135 *)
Formula
Extensions
Name amended by Antti Karttunen, Jan 09 2016
Comments