cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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.

This page as a plain text file.
%I A137306 #5 Mar 30 2012 17:34:26
%S A137306 2,8,20,28,50,83,118,126,168,194,298
%N 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.
%C A137306 "These are crucial to the notion of an 'island of stability', which Glenn Seaborg espoused."
%D A137306 Y. Oganessian, J. Phys. G: Nucl. Part. Phys, 2007, iop.org
%D A137306 Rosenfeld, L. (1948). Nuclear Forces. Interscience Publishers, New York, xvii.
%D A137306 G. T. Seaborg - Contemporary Physics, 2004, informaworld.com
%F A137306 Roughly a(n) = Floor[1.53*a(n-1)]
%t A137306 (* 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]]
%Y A137306 Cf. A018226, A018227.
%K A137306 nonn,obsc,uned
%O A137306 1,1
%A A137306 _Roger L. Bagula_, Apr 20 2008
%E A137306 Definition not clear to me. - _N. J. A. Sloane_, Apr 25 2008