MathGroup Archive 2001

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

Search the Archive

Re: Sum of Prime factors

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

In a message dated 2001/9/19 12:43:30 AM, cec at 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= 

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



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