A086295 Sum of all prime factors of 7-smooth numbers.

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, 14, 12, 11, 13, 12, 13, 12, 14, 12, 13, 13, 12, 14, 13, 13, 16, 14, 15, 13, 15, 14, 15, 15, 14, 14, 16, 14, 17, 15, 15, 14, 16, 17, 15, 16, 15, 18, 16, 17, 15, 17, 16, 16

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(n) = A001414(A002473(n)).

Mathematica

sumPrimes[1] = 0; sumPrimes[n_] := Plus @@ Times @@@ FactorInteger[n]; sumPrimes/@Select[Range[500], Max[Transpose[FactorInteger[#]][[1]]] <= 7 &] (* Amiram Eldar, Jan 06 2020 *)

Crossrefs

Cf. A002473, A001414, A086289, A086293, A086294.

Sequence in context: A338038 A112264 A118503 * A360269 A345423 A159303

Adjacent sequences: A086292 A086293 A086294 * A086296 A086297 A086298

Keyword

nonn

Author

Reinhard Zumkeller, Jul 15 2003

Status

approved