A356997 a(n) = b(n) - b(n - b(n - b(n))) for n >= 2, where b(n) = A356988(n).
0, 1, 1, 0, 1, 1, 1, 1, 2, 2, 2, 1, 1, 2, 3, 3, 3, 3, 3, 2, 2, 2, 3, 4, 5, 5, 5, 5, 5, 5, 5, 4, 3, 3, 3, 3, 4, 5, 6, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 7, 6, 5, 5, 5, 5, 5, 5, 6, 7, 8, 9, 10, 11, 12, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 12, 11, 10, 9, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 10, 11
Offset: 2
Examples
The sequence is arranged to show the local plateaus (P) and the local troughs (T): 0, 1, 1, T 0, P 1, 1, 1 1, P 2, 2, 2, T 1,1, 2, P 3, 3, 3, 3, 3, T 2, 2, 2, 3, 4, P 5, 5, 5, 5, 5, 5, 5, 4, T 3, 3, 3, 3, 4, 5, 6, 7, P 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 7, 6, T 5, 5, 5, 5, 5, 5, 6, 7, 8, 9, 10, 11, 12, P 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 12, 11, 10, 9, T 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 10, 11, ...
Programs
-
Maple
# b(n) = A356988 b := proc(n) option remember; if n = 1 then 1 else n - b(b(n - b(b(b(n-1))))) end if; end proc: seq( b(n) - b(n - b(n - b(n))), n = 2..100);
Comments