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

Author

Clark Kimberling, May 21 2025

Keywords

• nonn

Crossrefs

Cf. A137709, A384191 (complement).

Programs

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 *)