This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A384192 #9 May 30 2025 01:09:07
%S A384192 4,5,6,13,14,15,19,20,21,28,29,30,37,38,39,43,44,45,52,53,54,58,59,60,
%T A384192 67,68,69,76,77,78,82,83,84,91,92,93,100,101,102,106,107,108,115,116,
%U A384192 117,121,122,123,130,131,132,139,140,141,145,146,147,154,155
%N A384192 Complement of A384191.
%t A384192 k = 3; p = k*Array[Floor[#*GoldenRatio] &, 100] ;
%t A384192 seq = ConstantArray[1, Last[p]];
%t A384192 seq[[p]] = k + 1;
%t A384192 u = Join[{1}, Accumulate[seq] + 1] (* A384191 *)
%t A384192 Complement[Range[Last[#]], #] &[u] (* A383192 *)
%t A384192 (* _Peter J. C. Moses_, May 12 2025 *)
%Y A384192 Cf. A137709, A384191 (complement).
%K A384192 nonn
%O A384192 1,1
%A A384192 _Clark Kimberling_, May 21 2025