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 A222416 #18 Nov 17 2017 20:32:16
%S A222416 1,2,3,4,5,5,7,8,9,7,11,7,13,9,8,16,17,11,19,9,10,13,23,11,25,15,27,
%T A222416 11,29,10,31,32,14,19,12,13,37,21,16,13,41,12,43,15,14,25,47,19,49,27,
%U A222416 20,17,53,29,16,15,22,31,59,12,61,33,16,64,18,16,67,21,26,14,71,17,73
%N A222416 If n = Product (p_j^k_j) then a(n) = Sum (p_j^k_j) (a(1) = 1 by convention).
%C A222416 A variant of A008475, which is the main entry.
%H A222416 Antti Karttunen, <a href="/A222416/b222416.txt">Table of n, a(n) for n = 1..16384</a>
%H A222416 Nussbaum, Roger D.; Verduyn Lunel, Sjoerd M., <a href="http://www.math.rutgers.edu/~nussbaum/Pubs/nusslunel2003.pdf">Asymptotic estimates for the periods of periodic points of non-expansive maps</a>, Ergodic Theory Dynam. Systems 23 (2003), no. 4, 1199--1226. See the function S(n). MR1997973 (2004m:37033)
%t A222416 Array[Total[Power @@@ FactorInteger[#]] &, 73] (* _Michael De Vlieger_, Nov 17 2017 *)
%o A222416 (PARI)
%o A222416 A008475(n) = { my(f=factor(n)); vecsum(vector(#f~,i,f[i,1]^f[i,2])); };
%o A222416 A222416(n) = if(1==n,n,A008475(n)); \\ _Antti Karttunen_, Nov 17 2017
%Y A222416 Cf. A008475, A222415.
%K A222416 nonn
%O A222416 1,2
%A A222416 _N. J. A. Sloane_, Feb 28 2013