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 A030725 #20 Nov 19 2022 10:58:36
%S A030725 6,8,9,12,13,15,19,32,39,41,42,46,48,49,50,54,56,57,66,67,77,78,79,91,
%T A030725 92,107,108,125,126,146,149,169,172,173,182,194,197,198,207,225,226,
%U A030725 236,256,257,267,289,292,300,325,327,336,362
%N A030725 Numbers k such that A030717(k) = 3.
%H A030725 Seiichi Manyama, <a href="/A030725/b030725.txt">Table of n, a(n) for n = 1..1000</a>
%H A030725 Michael De Vlieger, <a href="/A030725/a030725.png">Plot a(s(j) + k - 1) at (j,k)</a> for j = 1..512 and s = partial sums of A030719, showing a(m) = 3 in red, a(m) = 1 in medium blue for reference, and other values of a(m) in light blue.
%t A030725 nn = 30; m = 3; c[_] = 0; k = a[1] = c[1] = 1; Reap[Do[w = Union@ Array[a, k]; Do[Set[a[j + k], c[w[[j]]]]; If[a[j + k] == m, Sow[m]], {j, Length[w]}]; Do[c[a[j + k]]++, {j, Length[w]}]; k += Length[w], {n, nn}] ][[-1, -1]] (* _Michael De Vlieger_, Nov 19 2022 *)
%Y A030725 Cf. A030723, A030724, A030726.
%Y A030725 Cf. A030717.
%K A030725 nonn
%O A030725 1,1
%A A030725 _Clark Kimberling_