This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A109658 Numbers k such that the sum of the digits of k^sigma(k) is divisible by k. 0
 1, 2, 3, 9, 11, 18, 54, 74, 108, 135, 426, 531, 585, 1361, 3456, 6771, 7245, 7392, 11025, 11957, 21494, 27063, 41952, 68494, 72516, 108742, 128331 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS EXAMPLE The sum of the digits of 531^sigma(531) is 9558 and 9558 is divisible by 531, so 531 is in the sequence. MATHEMATICA Do[s = n^DivisorSigma[1, n]; k = Plus @@ IntegerDigits[s]; If[Mod[k, n] == 0, Print[n]], {n, 1, 10000}] Select[Range[150000], Divisible[Total[IntegerDigits[#^DivisorSigma[ 1, #]]], #]&] (* Harvey P. Dale, Jul 19 2013 *) CROSSREFS Sequence in context: A110772 A074338 A111319 * A257027 A271548 A110350 Adjacent sequences:  A109655 A109656 A109657 * A109659 A109660 A109661 KEYWORD base,nonn,more AUTHOR Ryan Propper, Aug 06 2005 EXTENSIONS More terms from Ryan Propper, Oct 10 2005 More terms from Harvey P. Dale, Jul 19 2013 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 23 03:21 EDT 2019. Contains 328335 sequences. (Running on oeis4.)