A345240 a(1) = 1; thereafter a(n) = A161406(a(n-1)).
1, 52, 158, 229, 278, 284, 304, 235, 289, 291, 300, 153, 251, 298, 291, 300, 153, 251, 298, 291, 300, 153, 251, 298, 291, 300, 153, 251, 298, 291, 300, 153, 251, 298, 291, 300, 153, 251, 298, 291, 300, 153, 251, 298, 291, 300, 153, 251, 298, 291, 300, 153, 251, 298
Offset: 1
Links
- Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,1).
Programs
-
Mathematica
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 *) PadRight[{1,52,158,229,278,284,304,235,289},120,{300,153,251,298,291}] (* Harvey P. Dale, Sep 26 2024 *)
Comments