cp's OEIS Frontend

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.

%I A348366 #23 Nov 24 2024 10:08:14
%S A348366 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,
%T A348366 25,21,61,19,59,55,47,127,24,20,60,18,58,54,46,126,17,57,53,45,125,51,
%U A348366 43,123,39,119,111,95,255,16,56,52,44,124,50,42,122,38,118
%N 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.
%o A348366 (PARI) an(n) = my(m=0); until(fibonacci(m)>n, m++); m-2; \\ A072649
%o A348366 af(n) = my(m=0); until(fibonacci(m)>n, m++); fibonacci(m-2); \\ A130312
%o A348366 a(n) = if (n <= 1, n, 2*a(n - af(n)) + (an(n) - an(n - af(n))) % 2); \\ _Michel Marcus_, Nov 26 2022
%Y A348366 Cf. A072649, A130312.
%K A348366 nonn
%O A348366 0,3
%A A348366 _Mikhail Kurkov_, Oct 15 2021
%E A348366 Name changed by _Mikhail Kurkov_, Nov 08 2024