OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
FORMULA
MATHEMATICA
b[n_]:= b[n]= If[n<3, 1, b[b[n-2]] + b[n-b[n-2]]]; (* A005229 *)
Table[A051105[n], {n, 100}] (* G. C. Greubel, Mar 27 2022 *)
PROG
(Sage)
@CachedFunction
def b(n): # A005229
if (n<3): return 1
else: return b(b(n-2)) + b(n-b(n-2))
def A051105(n): return b(n+1) - b(n)
[A051105(n) for n in (1..100)] # G. C. Greubel, Mar 27 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved