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 A085328 #18 Mar 03 2018 21:30:28
%S A085328 1,3,9,15,17,18,24,27,28,30,40,41,44,47,48,50,51,52,53,56,57,60,64,67
%N A085328 Record values in A085068.
%H A085328 J. C. Lagarias and N. J. A. Sloane, Approximate squaring (<a href="http://neilsloane.com/doc/apsq.pdf">pdf</a>, <a href="http://neilsloane.com/doc/apsq.ps">ps</a>), Experimental Math., 13 (2004), 113-128.
%t A085328 f[n_] := Block[{c = 1, k = 4 n/3}, While[ ! IntegerQ@k, c++; k = 4 Ceiling@k/3]; c]; t = Table[0, {1000}]; Do[ a = f@n; If[a < 101 && t[[a]] == 0, t[[a]] = n; Print[{a, n}]], {n, 0, 21*10^8}] (* _Robert G. Wilson v_, May 28 2007 *)
%Y A085328 Cf. A085068, A085071, A085330.
%K A085328 nonn,more
%O A085328 1,2
%A A085328 _N. J. A. Sloane_, Aug 13 2003
%E A085328 More terms from _Jason Earls_, Aug 14 2003
%E A085328 a(12)-a(16) from _Robert G. Wilson v_, May 28 2007
%E A085328 a(17)-a(24) from _Lars Blomberg_, Mar 03 2018