|
Search: id:A107784
|
|
|
| A107784 |
|
Stable nuclear atomic numbers based on an semi-empirical formula. |
|
+0
1
|
|
| 2, 6, 7, 17, 18, 19, 20, 21, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
This function was derived as an expansion of : n/Log(n],n/(log[n]-1) in terms of n ( PrimePi[n] like) . I noticed thast it was giving ionization potential like output and adjusted it to give those values where the function was better than average. It corresponded to stable nuclear atomic numbers. It predicts a stability plateau around atomic number 146.
|
|
LINKS
|
Author?, Title?
Author?, Title?
Author?, Title?
|
|
FORMULA
|
f(n)=n*Sum[m/Product[ -Log[n] + (k - 1), {k, 1, m}], {m, 1, Infinity}] a(n) = if Floor[n*Abs[Re[f[n]]]/(n - 1)]>average then Floor[n*Abs[Re[f[n]]]/(n - 1)]
|
|
MATHEMATICA
|
f[n_] = n*Sum[m/Product[ -Log[n] + (k - 1), {k, 1, m}], {m, 1, Infinity}] a0 = Table[Floor[n*Abs[Re[f[n]]]/(n - 1)], {n, 2, 250}] a00 = Apply[Plus, a0]/Length[a0] b0 = Flatten[Table[If[a0[[n]] > a00, n, {}], {n, 1, Length[a0]}]]
|
|
CROSSREFS
|
Sequence in context: A030607 A049399 A060133 this_sequence A095036 A100901 A004791
Adjacent sequences: A107781 A107782 A107783 this_sequence A107785 A107786 A107787
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 14 2005
|
|
|
Search completed in 0.002 seconds
|
