A374121 a(n) = 1 if A328845(n) is a multiple of 3, otherwise 0, where A328845 is the first Fibonacci-based variant of the arithmetic derivative.

1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 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, 1, 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, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1

Offset

0

Links

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

Index entries for characteristic functions

Formula

a(n) = A079978(A328845(n)).

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]));
A374121(n) = !(A328845(n)%3);

Crossrefs

Characteristic function of A374122.

Cf. A079978, A328845.

Cf. also A374045, A374051.

Sequence in context: A279329 A374117 A359430 * A292438 A244525 A214263

Adjacent sequences: A374118 A374119 A374120 * A374122 A374123 A374124

Keyword

nonn

Author

Antti Karttunen, Jun 28 2024

Status

approved