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