login
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.
5
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
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. also A374045, A374051.
Sequence in context: A279329 A374117 A359430 * A292438 A244525 A214263
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 28 2024
STATUS
approved