A374124 - OEIS

%I #9 Jul 08 2024 13:59:37

%S 0,1,2,2,5,3,13,3,4,6,89,4,233,14,7,4,157,5,221,7,15,90,217,5,10,234,

%T 6,15,149,8,229,5,91,158,18,6,17,222,235,8,301,16,77,91,9,218,73,6,26,

%U 11,159,235,293,7,94,16,223,150,161,9,161,230,17,6,238,92,293,159,219,19,289,7,73,18,12,223,102,236,301

%N a(n) = A113177(n) mod 360, where A113177 is fully additive with a(p) = Fibonacci(p).

%H Antti Karttunen, <a href="/A374124/b374124.txt">Table of n, a(n) for n = 1..16384</a>

%o (PARI)

%o A113177(n) = if(n<=1, 0, my(f=factor(n)); sum(i=1, #f~, f[i, 2]*fibonacci(f[i,1])));

%o A374124(n) = (A113177(n)%360);

%Y Cf. A000045, A113177.

%Y Cf. A373585 (antiparity of terms), A373586 (indices of even terms), A373587 (of odd terms), A374052 (of multiples of 3).

%Y Cf. also A372576, A374123, A374125.

%K nonn

%O 1,3

%A _Antti Karttunen_, Jun 30 2024