%I A108212
%S A108212 399404041,156868,13421,3518,1478,800,505,353,265,209,172,146,127,113,
%T A108212 102,93,86,80,76,72,68,65,63,61,59,57,56,55,54,53,52,51,50,50,49,49,49,
%U A108212 48,48,48,47,47,47,47,47,47,46,46,46,46,46,46,46,46,46,46,46,46,46,47
%N A108212 Sequence that approximates the binding energy of last nucleon curve.
%C A108212 With K as the scale the relationship is approximately: K*Floor[P[n]]=Abs[Ebinding]/
               A As this sum is modeled om the PrimePi[n] asymptotic : Pi[n]=(n/
               Log[n])*Sum[i!/log[n]^i,{i,0.4}] it appears that nuclear binding 
               energy is related to Prime theory in some way. It's upside down, 
               but the curves are very alike. The curve is standard in nuclear physic 
               beginning texts in the 50's and 60's.
%D A108212 W. E. Burcham, Nuclear Physics, 1963, McGraw Hill Co. Inc., New York, 
               Fig 10.1 page 384.
%D A108212 L. Rosenfeld, Nuclear Forces II, 1949, InterScience Publishers, New York, 
               Fig 3.221-1.
%H A108212 Author?, <a href="http://hyperphysics.phy-astr.gsu.edu/hbase/nucene/nucbin.html">
               Title?</a>
%H A108212 Author?, <a href="http://csep10.phys.utk.edu/astr162/lect/energy/bindingE.html">
               Title?</a>
%H A108212 Author?, <a href="http://library.thinkquest.org/3471/mass_binding_body.html">
               Title?</a>
%F A108212 p[n_] = (n/(Log[n] - 1))*Sum[i!/(Log[n] - 1)^i, {i, 0, 5}] a(n) = Floor[p[n]]
%t A108212 p[n_] = (n/(Log[n] - 1))*Sum[i!/(Log[n] - 1)^i, {i, 0, 5}] a = Table[Floor[p[n]], 
               {n, 3, 204}] ListPlot[a]
%Y A108212 Sequence in context: A058125 A015369 A103773 this_sequence A103124 A038132 
               A101770
%Y A108212 Adjacent sequences: A108209 A108210 A108211 this_sequence A108213 A108214 
               A108215
%K A108212 nonn,uned
%O A108212 0,1
%A A108212 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 15 2005