login
A341262
Numbers not in the Wythoff ceiling array (A341260).
2
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.
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
Sequence in context: A022121 A364086 A171672 * A361992 A070073 A334539
KEYWORD
nonn
AUTHOR
Clark Kimberling, Feb 09 2021
STATUS
approved