A341262 Numbers not in the Wythoff ceiling array (A341260).

1, 3, 8, 11, 21, 24, 29, 32, 45, 55, 58, 63, 66, 76, 79, 84, 87, 100, 113, 118, 121, 134, 144, 147, 152, 155, 165, 168, 173, 176, 189, 199, 202, 207, 210, 220, 223, 228, 231, 244, 257, 262, 265, 278, 291, 296, 299, 309, 312, 317, 320, 333, 346, 351, 354, 367

Offset

1,2

Comments

Conjecture: the difference sequence, (2,5,3,10,3,5,...) has only 5 distinct terms: 2,3,5,10,13; cf. 3,5,10,13 for the difference sequence of A341261.

Links

Table of n, a(n) for n=1..56.

Mathematica

W[n_, k_] := Fibonacci[k + 1] Ceiling[n*GoldenRatio] + (n - 1) Fibonacci[k];
t = Table[W[n - k + 1, k], {n, 300}, {k, n, 1, -1}]  // Flatten ; (* A341260 *)
s = Sort[t]; c = Take[Complement[Range[Length[s]], s], 100]  (* A341262 *)

Crossrefs

Cf. A341260, A341261.

Sequence in context: A022121 A364086 A171672 * A361992 A070073 A334539

Adjacent sequences: A341259 A341260 A341261 * A341263 A341264 A341265

Keyword

nonn

Author

Clark Kimberling, Feb 09 2021

Status

approved