A379062 First differences of A377091, as in A379061, but take the square root of the magnitude of the difference, keeping the sign.
1, 1, -2, 1, 2, 1, 1, -3, 1, 3, 1, 1, -4, 1, 1, 1, -2, -1, -1, -1, 5, -2, 1, 1, 1, -5, -1, -1, -1, -1, -1, 6, -2, 1, 1, 1, -6, -1, -1, -1, -1, -1, 7, -2, -1, -1, 2, -1, 2, 1, 1, -2, -7, -1, -1, -1, -1, -1, -1, -1, 8, -1, -1, -1, 2, 1, 1, 1, 1, 1, 1, 1, 1, -9, 2, 1, 1, 1, -2, -1, -1, 9, 1, 1, 1, 1, 1, 1, 1, 1, -10, 3, -1, -1, -1, -1, -1, -1, -1, -1, 10, 1, 1, 1, 1, 1, 1
Offset: 0
Keywords
Links
- N. J. A. Sloane, Table of n, a(n) for n = 0..19999
Programs
-
Mathematica
(* A377091list is defined at A377091 *) Map[Sign[#]*Sqrt[Abs[#]] &, Differences[A377091list[100]]] (* Paolo Xausa, Jan 20 2025 *)
Comments