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 A086295 #8 Jan 06 2020 08:36:54 %S A086295 0,2,3,4,5,5,7,6,6,7,7,9,8,8,8,9,10,9,10,9,11,10,10,12,10,11,12,11,11, %T A086295 14,12,11,13,12,13,12,14,12,13,13,12,14,13,13,16,14,15,13,15,14,15,15, %U A086295 14,14,16,14,17,15,15,14,16,17,15,16,15,18,16,17,15,17,16,16 %N A086295 Sum of all prime factors of 7-smooth numbers. %H A086295 Amiram Eldar, <a href="/A086295/b086295.txt">Table of n, a(n) for n = 1..10000</a> %F A086295 a(n) = A001414(A002473(n)). %t A086295 sumPrimes[1] = 0; sumPrimes[n_] := Plus @@ Times @@@ FactorInteger[n]; sumPrimes/@Select[Range[500], Max[Transpose[FactorInteger[#]][[1]]] <= 7 &] (* _Amiram Eldar_, Jan 06 2020 *) %Y A086295 Cf. A002473, A001414, A086289, A086293, A086294. %K A086295 nonn %O A086295 1,2 %A A086295 _Reinhard Zumkeller_, Jul 15 2003