OFFSET
0,3
COMMENTS
FORMULA
PROG
(PARI) an(n) = my(m=0); until(fibonacci(m)>n, m++); m-2; \\ A072649
af(n) = my(m=0); until(fibonacci(m)>n, m++); fibonacci(m-2); \\ A130312
a(n) = if (n <= 1, n, 2*a(n - af(n)) + (an(n) - an(n - af(n))) % 2); \\ Michel Marcus, Nov 26 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Mikhail Kurkov, Oct 15 2021 [verification needed]
STATUS
approved