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 A348361 #11 Dec 31 2021 21:03:38
%S A348361 1,3,6,262,267,8043,8050,68719484786,68720016227,68730016227,
%T A348361 68730016238,184884327625052654,184884327625052667,184884348286099451,
%U A348361 184884350848990076,340282366920938463463559491782617201532,340282366920938463463559491782617201549,340282366921167931715454621189757074317
%N A348361 a(n) = Sum_{k=1..n} k^(k'), where ' is the arithmetic derivative.
%e A348361 a(4) = 262; a(4) = Sum_{k=1..4} k^(k') = 1^(1') + 2^(2') + 3^(3') + 4^(4') = 1^0 + 2^1 + 3^1 + 4^4 = 262.
%p A348361 a:= n-> add(k^(k*add(i[2]/i[1], i=ifactors(k)[2])), k=1..n):
%p A348361 seq(a(n), n=1..18); # _Alois P. Heinz_, Oct 14 2021
%t A348361 Accumulate@ Array[#^If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]]] &, 18] (* _Michael De Vlieger_, Oct 14 2021 *)
%Y A348361 Cf. A001923, A003415.
%K A348361 nonn
%O A348361 1,2
%A A348361 _Wesley Ivan Hurt_, Oct 14 2021