Search: id:A085469 Results 1-1 of 1 results found. %I A085469 %S A085469 1,7,4,7,5,6,4,5,9,4,6,3,3,1,8,2,1,9,0,6,3,6,2,1,2,0,3,5,5,4,4,3,9,7,4, %T A085469 0,3,4,8,5,1,6,1,4,3,6,6,2,4,7,4,1,7,5,8,1,5,2,8,2,5,3,5,0,7,6,5,0,4,0, %U A085469 6,2,3,5,3,2,7,6,1,1,7,9,8,9,0,7,5,8,3,6,2,6,9,4,6,0,7,8,8,9,9,3 %N A085469 Decimal expansion of Madelung constant (negated) for simple cubic lattice. %C A085469 This is the electrostatic potential at the origin produced by unit charges at all nonzero lattice points. %D A085469 Richard E. Crandall, Topics in Advanced Scientific Computation, Springer, Telos books, 1996. pages 73-79. %D A085469 S. R. Finch, Mathematical Constants, Cambridge, 2003, p. 76 %D A085469 Andre Hautot, New applications of Poisson's summation formula, J of Phys, A vol. 8 #6, 1975 pp. 853-862. %D A085469 Sadri Hassani, Mathematical Methods Using Mahematica: For Students of Physics and Related Fields, Springer, NY, page 60. %H A085469 Harry J. Smith, Table of n, a(n) for n=1,...,1847 %H A085469 D. H. Bailey, J. M. Borwein, V. Kapoor and E. Weisstein, Ten Problems in Experimental Mathematics %H A085469 R. E. Crandall and J. P. Buhler, Elementary function expansions for Madelung constants,J. Phys. A: Math. Gen. 20 (1987) no 16, 5497-5510 %H A085469 R. E. Crandall and J. P. Buhler, The potential within a crystal lattice,J. Phys. A: Math. Gen. 20 (1987) no 9, 2279-2292 %H A085469 E. R. Fuller Jr and E. R. Naimon, Electrostatic Contributions to the Brugger-Type Elastic Constants,Phys. Rev. B 6 (1971) no 10, 3609-3620 %H A085469 Simon Plouffe, Madelung constant %H A085469 S. Plouffe, The Levy constant %H A085469 Sandeep Tyagi, New series representation of the Madelung constant, Prog. Theor. Phys. 114 (2005) No 3, 517-521 %H A085469 Eric Weisstein's World of Mathematics, Benson's Formula %H A085469 Eric Weisstein's World of Mathematics, Madelung Constants %F A085469 Sum_{i, j, k not all 0} (-1)^(i+j+k)/sqrt(i^2+j^2+k^2). %e A085469 -1.7475645946331821906362120355443974034851614366247417581528253507... %t A085469 RealDigits[ 12Pi*Sum[ Sech[Pi/2*Sqrt[(2j + 1)^2 + (2k + 1)^2]]^2, {j, 0, 40}, {k, 0, 40}], 10, 111][[1]] (from Robert G. Wilson v (rgwv(at)rgwv.com), Jul 12 2005) %o A085469 Contribution from Harry J. Smith (hjsmithh(AT)sbcglobal.net), May 15 2009: (Start) %o A085469 (PARI) { default(realprecision,1848); Madelung=-1.7475645946331821906362120355443974034851614366247417581\ %o A085469 5282535076504062353276117989075836269460788993083258153875371059328\ %o A085469 2029944183828013036933002156599363282376607172297568659238037167203\ %o A085469 8104106034214556064382777786832173132243697558773426250474787821285\ %o A085469 0860567916681675739924476841297036782518576281093713133720767071931\ %o A085469 9742497158115723096992309669273949657781107222671520547409011506891\ %o A085469 5716583082820050184892117803134673122964985828828184357133159143170\ %o A085469 0549563253348875363026704256274869484380028002592700268475574364975\ %o A085469 5049224613623992040015750630397214664811151237364010295066011939046\ %o A085469 7194373312530445102911514639759331918047977946099333746429426562908\ %o A085469 9693447792968854190440791425583272199718409067468023761538935445655\ %o A085469 0360273028544084934430280626704418241200439741867661772447563953444\ %o A085469 2306853849527943580751895490309305073843954464206438717926390780392\ %o A085469 0744282097957917736992304082214374645668043105692663197550459224432\ %o A085469 4807489408062474936107093630914922436898693314090379682324079004628\ %o A085469 4485812201497496519179081118204181820099174737652482957295684972796\ %o A085469 0238432587361742516304301213253823307779481444598420343673216212916\ %o A085469 2257903116101353527417534916776824438057139382407124829068734888254\ %o A085469 4125452570636795213611364128355999680725389089412120267587472631283\ %o A085469 4068262537606780890814341434286117388903537106985249308735988759660\ %o A085469 2363184706607516442145683455586623676605437844742512217481810852938\ %o A085469 2986359330038858941133489312302314299432802377837641811377123806642\ %o A085469 4808681158556451188180538368104068069306152452657895325624057864079\ %o A085469 5650016172016637963148270800941668173022273735813292616204948281860\ %o A085469 4313652035571121839219375759423906825690022886650812437760991098879\ %o A085469 3853419448765682333487553786009201932911164565934512096197118655146\ %o A085469 2827591256212354525900502281084479644187471007265894559896882147628\ %o A085469 71074726392395758480653025376082029590142679877534; x=-Madelung; for (n=1, 1847, d=floor(x); x=(x-d)*10; write("b085469.txt", n, " ", d)); } (End) %Y A085469 Cf. A005875. %Y A085469 Cf. A108778 = Continued fraction. [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), May 13 2009] %Y A085469 Sequence in context: A160575 A153586 A153186 this_sequence A050996 A085541 A133055 %Y A085469 Adjacent sequences: A085466 A085467 A085468 this_sequence A085470 A085471 A085472 %K A085469 nonn,cons %O A085469 1,2 %A A085469 Eric Weisstein (eric(AT)weisstein.com), Jul 01, 2003 %E A085469 Entry revised by N. J. A. Sloane (njas(AT)research.att.com), Apr 12, 2004 %E A085469 Fixed my PARI program, had -n Harry J. Smith (hjsmithh(AT)sbcglobal.net), May 19 2009 Search completed in 0.001 seconds