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 A374122 #11 Dec 16 2024 05:12:32 %S A374122 0,1,8,9,10,14,18,22,27,36,45,52,54,58,62,63,64,65,68,72,76,80,81,85, %T A374122 90,91,92,95,99,100,106,108,112,115,117,118,119,125,126,133,135,140, %U A374122 143,144,146,148,153,158,161,162,164,166,171,172,175,176,180,185,187,188,189,194,196,198,202,205,206,207,209,214,215 %N A374122 Numbers k for which A328845(k) is a multiple of 3, where A328845 is the first Fibonacci-based variant of the arithmetic derivative. %C A374122 A multiplicative semigroup: if m and n are in the sequence, then so is m*n. %H A374122 Antti Karttunen, <a href="/A374122/b374122.txt">Table of n, a(n) for n = 1..12000</a> %t A374122 A374122Q[k_] := If[k <= 1, True, Divisible[k*Total[MapApply[#2*Fibonacci[#]/# &, FactorInteger[k]]], 3]]; %t A374122 Select[Range[0, 300], A374122Q] (* _Paolo Xausa_, Dec 16 2024 *) %o A374122 (PARI) isA374122 = A374121; %Y A374122 Cf. A328845, A374121 (characteristic function). %Y A374122 Cf. also A374046, A374052. %K A374122 nonn %O A374122 1,3 %A A374122 _Antti Karttunen_, Jun 28 2024