|
%I #22 Oct 13 2022 14:23:14
%S 1,52,158,229,278,284,304,235,289,291,300,153,251,298,291,300,153,251,
%T 298,291,300,153,251,298,291,300,153,251,298,291,300,153,251,298,291,
%U 300,153,251,298,291,300,153,251,298,291,300,153,251,298,291,300,153,251,298
%N a(1) = 1; thereafter a(n) = A161406(a(n-1)).
%C A Spanish analog of A345126 (British English) and A345157 (US English).
%C Starting from n = 10 the sequence becomes periodic with period 5: repeat [291, 300, 153, 251, 298].
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,1).
%t a[1]=1;a[n_]:=a[n]=Total[If[#=="ñ",15,If[(s=LetterNumber@#)>14,s+1,s]]&/@Characters@StringDelete[IntegerName[a[n-1],"Spanish"],{" ","-"}]];Array[a,100] (* _Giorgos Kalogeropoulos_, Jun 11 2021 *)
%Y Cf. A073327, A161406, A169639, A344013, A345126, A345157.
%K nonn,word,easy
%O 1,2
%A _Omar E. Pol_ and _N. J. A. Sloane_, Jun 11 2021
|
