login
n occurs A030124(n) times; a(n) = one less than the least k such that A005228(k) > n.
7

%I #21 Dec 09 2021 03:14:37

%S 1,1,2,2,2,2,3,3,3,3,3,4,4,4,4,4,4,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,

%T 7,7,7,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,9,9,9,9,9,9,

%U 10,10,10,10,10,10,10,10,10,10,10,10,10,10

%N n occurs A030124(n) times; a(n) = one less than the least k such that A005228(k) > n.

%C The characteristic function for Hofstadter's A005228 is given by X_A005228(1)=1, and for n>1, X_A005228(n) = a(n)-a(n-1).

%C The characteristic function for Hofstadter's A030124 is given by X_A030124(1)=0, and for n>1, X_A030124(n) = 1-(a(n)-a(n-1)).

%C Useful when computing A232747, A232748, A232750 & A225850.

%H <a href="/index/Ho#Hofstadter">Index entries for Hofstadter-type sequences</a>

%F a(n) = one less than the least k such that A005228(k) > n.

%t nmax = 100; A5228 = {1}; Module[{d = 2, k = 1}, Do[While[MemberQ[A5228, d], d++]; k += d; d++; AppendTo[A5228, k], {n, 1, nmax}]];

%t a[n_] := For[k = 1, True, k++, If[A5228[[k]] > n, Return[k-1]]];

%t Array[a, nmax] (* _Jean-François Alcover_, Dec 09 2021 *)

%o (Scheme, with _Antti Karttunen_'s IntSeq-library)

%o (define A232746 (COMPOSE -1+ (LEAST-GTE-I 1 1 (COMPOSE -1+ A005228))))

%Y Cf. A005228, A030124, A232747, A232748, A232750, A232753, A225850.

%K nonn

%O 1,3

%A _Antti Karttunen_, Nov 30 2013