A137306 Related to A018226 and A018227: due to the stable element 118 (last term in A018227) this is submitted as a suggested new observed list with 459 as a probable next new atomic weight stable island.
2, 8, 20, 28, 50, 83, 118, 126, 168, 194, 298
Offset: 1
References
- Y. Oganessian, J. Phys. G: Nucl. Part. Phys, 2007, iop.org
- Rosenfeld, L. (1948). Nuclear Forces. Interscience Publishers, New York, xvii.
- G. T. Seaborg - Contemporary Physics, 2004, informaworld.com
Programs
-
Mathematica
(* nuclear radius visualization from Rosenfeld*) Clear[r, A, r0, p, n, m] A[p_, n_] := If[p == 0, 1, p + n] r0 = 1.3214405*10^(-13); r[p_, n_] := r0*( 1 + 0.8*(n/A[p, n])^2 - 0.3/A[p, n]^(1/3) + 0.010*p^2/A[p, n]^(4/3)) a0 = Table[Table[r[p, n], {n, p, Floor[2*p]}], {p, 0, 120}]; ListPlot[Flatten[a0]]
Formula
Roughly a(n) = Floor[1.53*a(n-1)]
Extensions
Definition not clear to me. - N. J. A. Sloane, Apr 25 2008
Comments