A384192 Complement of A384191.

4, 5, 6, 13, 14, 15, 19, 20, 21, 28, 29, 30, 37, 38, 39, 43, 44, 45, 52, 53, 54, 58, 59, 60, 67, 68, 69, 76, 77, 78, 82, 83, 84, 91, 92, 93, 100, 101, 102, 106, 107, 108, 115, 116, 117, 121, 122, 123, 130, 131, 132, 139, 140, 141, 145, 146, 147, 154, 155

Offset

1,1

Links

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

Mathematica

k = 3; p = k*Array[Floor[#*GoldenRatio] &, 100] ;
seq = ConstantArray[1, Last[p]];
seq[[p]] = k + 1;
u = Join[{1}, Accumulate[seq] + 1]  (* A384191 *)
Complement[Range[Last[#]], #] &[u]  (* A383192 *)
(* Peter J. C. Moses, May 12 2025 *)

Crossrefs

Cf. A137709, A384191 (complement).

Sequence in context: A280382 A055033 A089119 * A063833 A260107 A167434

Adjacent sequences: A384189 A384190 A384191 * A384193 A384194 A384195

Keyword

nonn

Author

Clark Kimberling, May 21 2025

Status

approved