This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A374046 #15 Dec 16 2024 13:28:18 %S A374046 0,1,3,4,8,9,12,16,20,24,25,27,28,32,35,36,40,44,48,49,52,55,56,60,64, %T A374046 65,68,72,75,76,77,80,81,84,85,88,91,92,95,96,100,104,105,108,112,115, %U A374046 116,119,120,121,124,128,132,133,136,140,143,144,145,147,148,152,155,156,160,161,164,165,168,169,172,176,180 %N A374046 Numbers k for which A328845(k) is even, where A328845 is the first Fibonacci based variant of arithmetic derivative. %C A374046 A multiplicative semigroup: if m and n are in the sequence, then so is m*n. %H A374046 Antti Karttunen, <a href="/A374046/b374046.txt">Table of n, a(n) for n = 1..12000</a> %t A374046 A374046Q[k_] := If[k <= 1, True, EvenQ[k*Total[MapApply[#2*Fibonacci[#]/# &, FactorInteger[k]]]]]; %t A374046 Select[Range[0, 200], A374046Q] (* _Paolo Xausa_, Dec 16 2024 *) %o A374046 (PARI) isA374046 = A374045; %Y A374046 Cf. A328845, A374045 (characteristic function), A374047 (complement). %Y A374046 Cf. also A373586 (positions of even terms in A113177). %K A374046 nonn %O A374046 1,3 %A A374046 _Antti Karttunen_, Jun 27 2024