A374203 The 3-adic valuation of A328845(n), where A328845 is a Fibonacci-based variant of the arithmetic derivative.

0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 3, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 3, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 3, 0, 0, 0, 1, 0, 0, 0, 0, 1, 2, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 2, 0, 4

Offset: 2

Author

Antti Karttunen, Jul 01 2024

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 2..100000

Crossrefs

Cf. A007949, A328845, A374121, A374122 (after its 2 initial terms, gives the indices of nonzero terms in this sequence).

Cf. also A374133, A374213, A374202, A374205.

Programs

Mathematica

A374203[n_] := IntegerExponent[n*Total[MapApply[#2*Fibonacci[#]/# &, FactorInteger[n]]], 3];
Array[A374203, 100, 2] (* 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]));
A374203(n) = valuation(A328845(n), 3);

Formula

a(n) = A007949(A328845(n)).