login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

Table of n, a(n) for n=1..25.

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]=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[#[[1]], #[[2]]]&]][[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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 15 12:31 EDT 2019. Contains 328026 sequences. (Running on oeis4.)