A348366 - OEIS

A348366

a(n) = 2*a(n - A130312(n)) + (A072649(n) - A072649(n - A130312(n))) mod 2 for n > 1 with a(0) = 0, a(1) = 1.

0, 1, 3, 2, 7, 6, 5, 15, 4, 14, 13, 11, 31, 12, 10, 30, 9, 29, 27, 23, 63, 8, 28, 26, 22, 62, 25, 21, 61, 19, 59, 55, 47, 127, 24, 20, 60, 18, 58, 54, 46, 126, 17, 57, 53, 45, 125, 51, 43, 123, 39, 119, 111, 95, 255, 16, 56, 52, 44, 124, 50, 42, 122, 38, 118

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

Table of n, a(n) for n=0..64.

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

Cf. A072649, A130312.

Sequence in context: A267107 A126316 A101224 * A229120 A255067 A139285