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 A030723 #15 Nov 18 2022 03:39:39
%S A030723 1,2,5,10,17,22,28,35,59,60,69,70,71,72,81,84,85,94,97,98,99,100,101,
%T A030723 110,113,115,116,117,118,119,128,131,133,134,135,136,137,139,148,151,
%U A030723 153,154,155,156,157,158,160,161,162,171,174
%N A030723 Numbers k such that A030717(k) = 1.
%H A030723 Seiichi Manyama, <a href="/A030723/b030723.txt">Table of n, a(n) for n = 1..10000</a>
%H A030723 Michael De Vlieger, <a href="/A030723/a030723.png">Plot a(w(j) + k - 1) at (j,k)</a> for j = 1..512 and w the sequence of partial sums of A030719, showing a(m) = 1 in red and a(m) > 1 in light blue.
%t A030723 nn = 102; c[_] = 0; m = k = a[1] = c[1] = 1; {1}~Join~Reap[Do[w = Union@ Array[a, k]; Do[If[Set[a[j + k], c[w[[j]]]] == 1, Sow[j + k]], {j, Length[w]}]; Do[c[a[j + k]]++, {j, Length[w]}]; k += Length[w], {nn}]][[-1, -1]] (* _Michael De Vlieger_, Nov 15 2022 *)
%Y A030723 Cf. A030717, A030724, A030725, A030726.
%K A030723 nonn
%O A030723 1,2
%A A030723 _Clark Kimberling_