A387351 Positions of -1's in A387348.

3, 8, 16, 21, 24, 29, 37, 42, 45, 50, 55, 58, 63, 71, 76, 79, 84, 92, 97, 105, 110, 113, 118, 126, 131, 134, 139, 144, 147, 152, 160, 165, 168, 173, 181, 186, 194, 199, 202, 207, 215, 220, 223, 228, 236, 241, 249, 254, 257, 262, 270, 275, 278, 283, 288, 291

Offset: 1

Author

Clark Kimberling, Aug 27 2025

Keywords

• nonn
• new

Comments

This sequence together with A387349 and A387350 partition the positive integers.

Conjecture: the difference sequence, (5, 8, 5, 3, 5, 8, 5, 3, 5, 5, 3, 5, 8, 5, 3, 5, 8, 5, 8, ... ) has exactly 3 distinct terms.

Crossrefs

Cf. A387348, A387349, A387350.

Programs

Mathematica

z = 300;
A[n_, k_] := Module[{t, a, b}, t = (1 + Sqrt[5])/2;
a = Floor[n*(t + 1) + 1 + t/2]; b = Round[a*t]; ({b, a} . MatrixPower[{{1, 1}, {1, 0}}, k])[[2]]];
ts = Table[A[n, k], {n, 0, z - 1}, {k, 0, z - 1}];  (* A035506, Stolarsky array *)
W[n_, k_] := Fibonacci[k + 1]  Floor[n*GoldenRatio] + (n - 1)  Fibonacci[k];
tw = Table[W[n, k], {n, 1, z}, {k, 1, z}];   (* A035513, Wythoff array *)
diff = tw - ts;
u = Table[diff[[n]][[2]], {n, 1, z}]
Flatten[Position[u, 0]]   (* A387349 *)
Flatten[Position[u, 1]]   (* A387350 *)
Flatten[Position[u, -1]]  (* A387351 *)