A051105 First differences of A005229.

0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• easy

Links

• G. C. Greubel, Table of n, a(n) for n = 1..5000

Crossrefs

Cf. A005229.

Programs

Mathematica

b[n_]:= b[n]= If[n<3, 1, b[b[n-2]] + b[n-b[n-2]]]; (* A005229 *)
A051105[n_]:= A051105[n] = b[n+1] -b[n];
Table[A051105[n], {n, 100}] (* G. C. Greubel, Mar 27 2022 *)

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

Formula

a(n) = A005229(n+1) - A005229(n). - G. C. Greubel, Mar 28 2022