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,4

Links

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

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 *)

Prog

(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);

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.

Sequence in context: A116432 A050027 A123643 * A328845 A376897 A240842

Adjacent sequences: A374122 A374123 A374124 * A374126 A374127 A374128

Keyword

nonn

Author

Antti Karttunen, Jun 30 2024

Status

approved