OFFSET
1,2
COMMENTS
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,1).
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 *)
CROSSREFS
KEYWORD
nonn,word,easy
AUTHOR
Omar E. Pol and N. J. A. Sloane, Jun 11 2021
STATUS
approved