MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Sum of Prime factors

  • To: mathgroup at smc.vnet.net
  • Subject: [mg30856] Re: [mg30809] Sum of Prime factors
  • From: BobHanlon at aol.com
  • Date: Thu, 20 Sep 2001 03:52:06 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 2001/9/19 12:43:30 AM, cec at cal2.vsnl.net.in writes:

>Can any body help in providing a simple mathematica code for finding sum
>
>of digits of prime factors(including repetitions) of a number. For 
>example 198 =2*3*3*11 , so sum of digits of prime factors= 
>2+3+3+1+1=10.

digitSumOfFactors[n_Integer] := 
    Plus@@
      Flatten[
        IntegerDigits /@ 
          Flatten[Table[#[[1]], {#[[2]]}]& /@ 
              FactorInteger[n]]];

digitSumOfFactors[198]

10


Bob Hanlon
Chantilly, VA  USA


  • Prev by Date: Exporting To Adobe Illustrator
  • Next by Date: RE: how do i make a function to convert base 2 representation to base-10?
  • Previous by thread: Re: Sum of Prime factors
  • Next by thread: Re: Sum of Prime factors