This site is supported by donations to The OEIS Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A056550 Numbers n such that sum_{k=1..n} sigma(k) is divisible by n, where sigma(k) = sum of divisors of k (A000203). 10
 1, 2, 8, 11, 17, 63, 180, 259, 818, 2161, 4441, 8305, 11998, 694218, 3447076, 4393603, 57402883, 73459800, 121475393, 2068420025, 5577330586, 13320495021, 35297649260, 138630178659, 988671518737 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS FORMULA Values of n for which A024916(n)/n is integer. Also values of n for which A004125(n)/n is integer. [Paolo P. Lava, Jan 08 2013] EXAMPLE a(3) = 8 is in the sequence because A024916(8) / 8 = 56 / 8 = 7 is an integer. [Jaroslav Krizek, Dec 07 2009] MAPLE f := []: for i from 1 to 9000 do if add(sigma(n), n=1..i) mod i = 0 then f := [op(f), i] fi; od; f; MATHEMATICA k=10^4; a=1; a[n_]:=a[n]=DivisorSigma[1, n]+a[n-1]; s=a/@Range@k; Select[Range@k, Divisible[s[[#]], #]&] (* Ivan N. Ianakiev, Apr 30 2016 *) Module[{nn=44*10^5, ds}, ds=Accumulate[DivisorSigma[1, Range[nn]]]; Select[ Thread[{ds, Range[nn]}], Divisible[#[], #[]]&]][[All, 2]] (* The program generates the first 16 terms of the sequence. To generate more, increase the value of nn. *) (* Harvey P. Dale, Dec 04 2018 *) PROG (PARI) is(n)=sum(k=1, n, n\k*k)%n==0 \\ Charles R Greathouse IV, Feb 14 2013 CROSSREFS Cf. A000203, A024916, A168133, A168132. Sequence in context: A129516 A220269 A143189 * A074263 A295070 A009420 Adjacent sequences:  A056547 A056548 A056549 * A056551 A056552 A056553 KEYWORD nonn AUTHOR Asher Auel (asher.auel(AT)reed.edu) Jun 06 2000 EXTENSIONS More terms from Jud McCranie, Jul 04 2000 a(19)-a(24) from Donovan Johnson, Dec 29 2008 a(25) from Donovan Johnson, Jun 16 2011 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 15 12:31 EDT 2019. Contains 328026 sequences. (Running on oeis4.)