|
%I #6 Jun 30 2024 09:15:43
%S 0,0,1,2,4,5,7,13,12,12,15,89,20,233,33,25,32,157,33,221,40,53,189,
%T 217,52,50,119,54,80,149,65,229,80,289,331,100,84,17,101,5,100,301,
%U 127,77,40,105,97,73,128,182,125,145,264,293,135,140,188,341,327,161,160,161,129,201,192,150,251,293,336,337,235,289
%N a(n) = A328845(n) mod 360, where A328845 is the first Fibonacci-based variant of the arithmetic derivative.
%H Antti Karttunen, <a href="/A374125/b374125.txt">Table of n, a(n) for n = 0..16384</a>
%o (PARI)
%o A328845(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]*fibonacci(f[i,1])/f[i, 1]));
%o A374125(n) = (A328845(n)%360);
%Y Cf. A000045, A328845.
%Y Cf. A374045 (antiparity of terms), A374046 (indices of even terms), A374047 (of odd terms), A374122 (of multiples of 3).
%Y Cf. also A372576, A374123, A374124.
%K nonn
%O 0,4
%A _Antti Karttunen_, Jun 30 2024
|
