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.

A258565 Arithmetic derivative of powerful numbers, cf. A001694.

This page as a plain text file.
%I A258565 #11 Oct 12 2021 21:58:00
%S A258565 0,4,12,6,32,10,27,80,60,14,192,156,108,140,216,22,75,448,384,26,252,
%T A258565 380,540,240,405,1024,912,34,756,147,38,700,960,1296,420,572,800,2304,
%U A258565 46,2112,500,1836,945,780,1458,1792,2320,58,3024,1860,62,1628,2592
%N A258565 Arithmetic derivative of powerful numbers, cf. A001694.
%H A258565 Reinhard Zumkeller, <a href="/A258565/b258565.txt">Table of n, a(n) for n = 1..10000</a>
%F A258565 a(n) = A003415(A001694(n)).
%t A258565 ader[n_] := Switch[n, 0|1, 0, _, If[PrimeQ[n], 1, Sum[Module[{p, e}, {p, e} = pe; n e/p], {pe, FactorInteger[n]}]]];
%t A258565 ader /@ Join[{1}, Select[Range[1000], AllTrue[FactorInteger[#][[All, 2]], # > 1&]&]] (* _Jean-François Alcover_, Oct 12 2021 *)
%o A258565 (Haskell)
%o A258565 a258565 = a003415 . a001694
%Y A258565 Cf. A003415, A001694, A068720, A068328, A078310.
%K A258565 nonn
%O A258565 1,2
%A A258565 _Reinhard Zumkeller_, Jun 03 2015