A345130 Greatest determinant for a prime knot with n crossings.
3, 5, 7, 13, 21, 45, 75, 121, 209, 377, 663, 1145, 2037, 3581
Offset: 3
Links
- Alexander Stoimenow, Maximal Determinant Knots, Tokyo J. Math. 30 (1) (2007), 73-97, table 1.
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.
Cara Bennett has authored 2 sequences.
For n = 53, the numbers produced are 53 -> 164 -> 82 -> 41 -> 128 -> 64 -> 32 -> 16 -> 8 -> 4 -> 2 -> 1 -> 8 -> 4 -> 2 -> 1 -> ...
Select[Range@ 400, Function[n, NestWhile[If[EvenQ@ #, #/2, 3 # + 5] &, n, And[FreeQ[{##}, 1], Count[{##}, n] <= 2] &, All, 120] == 1]] (* Michael De Vlieger, Dec 27 2019 *)
Comments