Search: id:A007406 Results 1-1 of 1 results found. %I A007406 M4004 %S A007406 1,5,49,205,5269,5369,266681,1077749,9778141,1968329,239437889, %T A007406 240505109,40799043101,40931552621,205234915681,822968714749, %U A007406 238357395880861,238820721143261,86364397717734821,17299975731542641 %N A007406 Wolstenholme numbers: numerator of Sum 1/k^2, k = 1..n. %C A007406 By Wolstenholme's theorem, p divides a(p-1) for prime p > 3. - T. D. Noe (noe(AT)sspectra.com), Sep 05 2002 %C A007406 Also p divides a( (p-1)/2 ) for prime p > 3. - Alexander Adamchuk (alex(AT)kolmogorov.com), Jun 07 2006 %C A007406 The rationals a(n)/A007407(n) converge to Zeta(2)= (Pi^2)/6 = 1.6449340668... (see the decimal expansion A013661). %C A007406 For the rationals a(n)/A007407(n), n>=1, see the W. Lang link under A103345 (case k=2). %C A007406 Numbers n such that a(n) is prime are listed in A111354[n] = {2,7,13, 19,121,188,252,368,605,745,1085,1127,1406,...}. Primes in a(n) are listed in A123751[n] = {5,266681,40799043101,86364397717734821,...}. - Alexander Adamchuk (alex(AT)kolmogorov.com), Oct 11 2006 %D A007406 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). %D A007406 D. Y. Savio, E. A. Lamagna and S.-M. Liu, Summation of harmonic numbers, pp. 12-20 of E. Kaltofen and S. M. Watt, editors, Computers and Mathematics, Springer-Verlag, NY, 1989. %H A007406 T. D. Noe, Table of n, a(n) for n=1..200 %H A007406 Hisanori Mishima, Factorizations of many number sequences %H A007406 Hisanori Mishima, Factorizations of many number sequences %H A007406 Hisanori Mishima, Factorizations of many number sequences %H A007406 Eric Weisstein's World of Mathematics, Wolstenholme's Theorem %H A007406 Eric Weisstein's World of Mathematics, Wolstenholme Number %F A007406 Sum[1/k^2, {k, 1, n}] = Sqrt[Sum[Sum[1/(i*j)^2, {i, 1, n}], {j, 1, n}]] - Alexander Adamchuk (alex(AT)kolmogorov.com), Oct 26 2004 %F A007406 G.f. for rationals a(n)/A007407(n), n>=1: polylog(2,x)/(1-x). %p A007406 ZL:=n->sum(1/i^2, i=1..n): a:=n->floor(numer(ZL(n))): seq(a(n), n=1..20); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Mar 28 2007 %t A007406 s=0;lst={};Do[s+=n^2/n^4;AppendTo[lst,Numerator[s]],{n,3*4!}];lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 24 2009] %Y A007406 Cf. A001008, A007407. %Y A007406 Cf. A111354, A123751. %Y A007406 Sequence in context: A108207 A127091 A063429 this_sequence A058927 A083224 A093188 %Y A007406 Adjacent sequences: A007403 A007404 A007405 this_sequence A007407 A007408 A007409 %K A007406 nonn,frac,easy,nice %O A007406 1,2 %A A007406 N. J. A. Sloane (njas(AT)research.att.com), Mira Bernstein Search completed in 0.002 seconds