A086419 Sum of all prime factors of 3-smooth numbers.
0, 2, 3, 4, 5, 6, 6, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 12, 13, 13, 14, 14, 14, 15, 15, 15, 16, 16, 16, 17, 17, 17, 18, 18, 18, 18, 19, 19, 19, 20, 20, 20, 20, 21, 21, 21, 22, 21, 22, 22, 22, 23, 23, 23, 24, 23, 24, 24, 24, 25, 24, 25, 25, 26, 25, 26, 26, 26, 27
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
s = {}; m = 12; Do[n = 3^k; While[n <= 3^m, AppendTo[s, n]; n*=2], {k, 0, m}]; sopfr[1] = 0; sopfr[n_] := Plus @@ Times @@@ FactorInteger[n]; sopfr /@ Union[s] (* Amiram Eldar, Jan 29 2020 *)