OFFSET
1,2
FORMULA
a(n) == 1 (mod 20).
MATHEMATICA
name[n_]:=StringReplace[IntegerName[n, "Words"], {"-"->" ", ", "->" "}];
nameLen[n_]:=WordCount[name[n]]; f[1]=1; f[n_]:=f[n]=Module[{k=f[n-1]},
While[nameLen[k]<n, k=k+20]; k]; f/@Range[10]
CROSSREFS
KEYWORD
nonn,word,fini
AUTHOR
Ivan N. Ianakiev, Aug 25 2022
STATUS
approved