%I #26 Feb 27 2021 21:58:21
%S 1,3,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
%T 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
%U 4,4,4,4,4,4,4,4,4,4,4,4
%N a(n) = number of letters in a(n-1), a(1) = 1 (in English).
%H <a href="/index/Rec#order_01">Index entries for linear recurrences with constant coefficients</a>, signature (1).
%F a(n) = 4 for n > 3, with a(1) = 1, a(2) = 3 and a(3) = 5. - _Wesley Ivan Hurt_, Oct 03 2020
%F E.g.f.: - 4 - 3*x - (1/2)*x^2 + (1/6)*x^3 + 4*exp(x). - _Alejandro J. Becerra Jr._, Feb 17 2021
%e One, three, five, four, four, four, ...
%t Nest[Append[#, StringLength@ IntegerName[#[[-1]], "Words"]] &, {1}, 105] (* _Michael De Vlieger_, Feb 17 2021 *)
%Y Cf. A005589 (number of letters).
%Y Cf. A061504 (French), A101432 (Spanish), A328263 (Polish).
%K nonn,word,easy
%O 1,2
%A _N. J. A. Sloane_
|