login
A051105
First differences of A005229.
2
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,1
LINKS
FORMULA
a(n) = A005229(n+1) - A005229(n). - G. C. Greubel, Mar 28 2022
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 *)
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
Cf. A005229.
Sequence in context: A296211 A341642 A123506 * A284929 A286746 A155897
KEYWORD
nonn,easy
STATUS
approved