| Bytes | Lang | Time | Link |
|---|---|---|---|
| 067 | Wolfram Language Mathematica | 241028T143121Z | 138 Aspe |
Wolfram Language (Mathematica), 67 bytes
f@1=1;f@n_:=1+f[n-f@f[n-1]]
g@n_:=Sum[f[i]~Mod~998244353,{i,1,n}]^2
| Bytes | Lang | Time | Link |
|---|---|---|---|
| 067 | Wolfram Language Mathematica | 241028T143121Z | 138 Aspe |
f@1=1;f@n_:=1+f[n-f@f[n-1]]
g@n_:=Sum[f[i]~Mod~998244353,{i,1,n}]^2