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

0, 0, 1, 2, 4, 5, 7, 13, 12, 12, 15, 89, 20, 233, 33, 25, 32, 157, 33, 221, 40, 53, 189, 217, 52, 50, 119, 54, 80, 149, 65, 229, 80, 289, 331, 100, 84, 17, 101, 5, 100, 301, 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

Offset: 0

Author

Antti Karttunen, Jun 30 2024

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 0..16384

Crossrefs

Cf. A000045, A328845.

Cf. A374045 (antiparity of terms), A374046 (indices of even terms), A374047 (of odd terms), A374122 (of multiples of 3).

Cf. also A372576, A374123, A374124.

Programs

Mathematica

A374125[n_] := If[n <= 1, 0, Mod[n*Total[MapApply[#2*Fibonacci[#]/# &, FactorInteger[n]]], 360]];
Array[A374125, 100, 0] (* Paolo Xausa, Dec 16 2024 *)

PARI

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]));
A374125(n) = (A328845(n)%360);