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 A107463 #13 Feb 25 2018 13:30:21
%S A107463 0,1,1,1,4,1,5,1,6,6,7,1,7,1,9,8,8,1,8,1,9,10,13,1,9,10,15,9,11,1,10,
%T A107463 1,10,14,19,12,10,1,21,16,11,1,12,1,15,11,25,1,11,14,12,20,17,1,11,16,
%U A107463 13,22,31,1,12,1,33,13,12,18,16,1,21,26,14,1,12,1,39,13,23,18,18,1,13,12
%N A107463 a(0)=0, a(n)=1 if n is 1 or is a prime, otherwise sum of prime factors of n with multiplicity.
%H A107463 Antti Karttunen, <a href="/A107463/b107463.txt">Table of n, a(n) for n = 0..20000</a>
%t A107463 Array[If[PrimeQ@ #, 1, Total@ Apply[Times, FactorInteger@ #, 1]] &, 81] (* _Michael De Vlieger_, Feb 25 2018 *)
%o A107463 (PARI)
%o A107463 A001414(n) = { my(f=factor(n)); sum(k=1, matsize(f)[1], f[k, 1]*f[k, 2]); }; \\ From A001414.
%o A107463 A107463(n) = if(n<=1,n,if(isprime(n),1,A001414(n))); \\ _Antti Karttunen_, Feb 25 2018
%Y A107463 Cf. A001414.
%K A107463 nonn
%O A107463 0,5
%A A107463 _Giovanni Teofilatto_, May 27 2005
%E A107463 Edited, corrected and extended by _Franklin T. Adams-Watters_, May 12 2006