cp's OEIS Frontend

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.

A373480 a(n) = A003415(n) mod A001414(n), where A003415 is the arithmetic derivative, and A001414 is the sum of prime factors with multiplicity.

This page as a plain text file.
%I A373480 #11 Jun 26 2024 17:19:49
%S A373480 1,1,0,1,0,1,0,0,0,1,2,1,0,0,0,1,5,1,6,0,0,1,8,0,0,0,10,1,1,1,0,0,0,0,
%T A373480 0,1,0,0,2,1,5,1,3,6,0,1,2,0,9,0,5,1,4,0,1,0,0,1,8,1,0,12,0,0,13,1,9,
%U A373480 0,3,1,0,1,0,3,11,0,17,1,7,0,0,1,12,0,0,0,4,1,6,0,15,0,0,0,12,1,13,7,0,1,3,1,12,11
%N A373480 a(n) = A003415(n) mod A001414(n), where A003415 is the arithmetic derivative, and A001414 is the sum of prime factors with multiplicity.
%H A373480 Antti Karttunen, <a href="/A373480/b373480.txt">Table of n, a(n) for n = 2..65537</a>
%t A373480 Array[Mod[If[#1 < 2, 0, #1  Total[#2/#1 & @@@ #2]], Total[Times @@@ #2]] & @@ {#, FactorInteger[#]} &, 120, 2] (* _Michael De Vlieger_, Jun 08 2024 *)
%o A373480 (PARI)
%o A373480 A001414(n) = ((n=factor(n))[, 1]~*n[, 2]); \\ From A001414.
%o A373480 A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
%o A373480 A373480(n) = (A003415(n)%A001414(n));
%Y A373480 Cf. A001414, A003415, A373364, A373481, A373482 (after its initial 1, positions of 0's in this sequence).
%K A373480 nonn,look
%O A373480 2,11
%A A373480 _Antti Karttunen_, Jun 08 2024