cp's OEIS Frontend

A374125 a(n) = A328845(n) mod 360, where A328845 is the first Fibonacci-based variant of the arithmetic derivative.

%I A374125 #10 Dec 16 2024 08:47:50
%S A374125 0,0,1,2,4,5,7,13,12,12,15,89,20,233,33,25,32,157,33,221,40,53,189,
%T A374125 217,52,50,119,54,80,149,65,229,80,289,331,100,84,17,101,5,100,301,
%U A374125 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 A374125 a(n) = A328845(n) mod 360, where A328845 is the first Fibonacci-based variant of the arithmetic derivative.
%H A374125 Antti Karttunen, <a href="/A374125/b374125.txt">Table of n, a(n) for n = 0..16384</a>
%t A374125 A374125[n_] := If[n <= 1, 0, Mod[n*Total[MapApply[#2*Fibonacci[#]/# &, FactorInteger[n]]], 360]];
%t A374125 Array[A374125, 100, 0] (* _Paolo Xausa_, Dec 16 2024 *)
%o A374125 (PARI)
%o A374125 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 A374125(n) = (A328845(n)%360);
%Y A374125 Cf. A000045, A328845.
%Y A374125 Cf. A374045 (antiparity of terms), A374046 (indices of even terms), A374047 (of odd terms), A374122 (of multiples of 3).
%Y A374125 Cf. also A372576, A374123, A374124.
%K A374125 nonn
%O A374125 0,4
%A A374125 _Antti Karttunen_, Jun 30 2024