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 A095407 #11 Nov 03 2019 22:34:25
%S A095407 0,1,1,1,1,2,1,1,1,2,2,2,2,2,2,1,2,2,2,2,2,3,2,2,1,3,1,2,2,3,2,1,3,3,
%T A095407 2,2,2,3,3,2,2,3,2,3,2,3,2,2,1,2,3,3,2,2,3,2,3,3,2,3,2,3,2,1,3,4,2,3,
%U A095407 3,3,2,2,2,3,2,3,3,4,2,2,1,3,2,3,3,3,3,3,2,3,3,3,3,3,3,2,2,2,3,2,3,4,3,3,3
%N A095407 Total number of decimal digits of all distinct prime factors of n.
%C A095407 a(n) <= A055642(n) + A001221(n) - 1 since the product of a k digit number and an m digit number has at least k+m-1 digits. - _Chai Wah Wu_, Nov 03 2019
%H A095407 Charles R Greathouse IV, <a href="/A095407/b095407.txt">Table of n, a(n) for n = 1..10000</a>
%e A095407 n=22: prime set={2,11}, a[22]=1+2=3.
%t A095407 Prepend[(Total [ Length[IntegerDigits[#]] & /@ ( #[[1]] & /@ FactorInteger[#])] & /@ Range[2, 105]), 0] (* _Zak Seidov_, Aug 26 2016 *)
%o A095407 (PARI) a(n)=vecsum(apply(p->#Str(p), factor(n)[,1])) \\ _Charles R Greathouse IV_, Aug 26 2016
%Y A095407 Cf. A055642, A001221.
%K A095407 base,nonn
%O A095407 1,6
%A A095407 _Labos Elemer_, Jun 21 2004