This site is supported by donations to The OEIS Foundation.

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A141812 RMS values of the RMS numbers: a(n) is the root mean square of the divisors of A140480(n). 7
 1, 5, 29, 169, 145, 845, 1105, 2405, 3445, 4901, 2665, 5525, 9425, 12325, 12025, 17225, 24505, 13325, 32045, 55205, 47125, 61625, 69745, 101065, 99905, 77285, 124501, 160225, 186745, 204425, 239425, 160225, 273325, 276025, 292825, 226525, 446165, 456025 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Those numbers seem to be congruent to 0,1,-1 mod 5. [Ctibor O. Zizka, Sep 23 2008] LINKS Andrew Weimholt and Donovan Johnson, Table of n, a(n) for n = 1..1660 (first 455 terms from Andrew Weimholt) EXAMPLE a(5)=145, because A140480(5)=287, with divisors 1,7,41,287 and RMS(1,7,41,287) = 145. MATHEMATICA rmsQ[n_] := IntegerQ[Sqrt[DivisorSigma[2, n]/DivisorSigma[0, n]]]; Reap[ For[k=1; n=1, k<10^7, k++, If[rmsQ[k], an = Sqrt[Mean[Divisors[k]^2]]; Print["k = ", k, " a(", n++, ") = ", an]; Sow[an]]]][[2, 1]] (* Jean-François Alcover, Dec 04 2015 *) PROG (PARI) for(n=1, 1e6, if(issquare(sumdiv(n, d, d^2)/numdiv(n), &s) && denominator(s)==1, print1(s", "))) \\ Charles R Greathouse IV, Mar 08 2013 CROSSREFS Cf. A140480, A141813, A141814, A141815, A141816. Sequence in context: A015537 A182017 A291017 * A227206 A001653 A141814 Adjacent sequences:  A141809 A141810 A141811 * A141813 A141814 A141815 KEYWORD nonn AUTHOR Andrew Weimholt, Jul 07 2008 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 January 19 17:45 EST 2019. Contains 319309 sequences. (Running on oeis4.)