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 A074097 #14 Jan 10 2025 14:48:46
%S A074097 2,4,13,15,21,22,23,27,29,34,36,40,42,50,75,81
%N A074097 Record values in A074078.
%C A074097 RECORDS transform of A074078.
%H A074097 N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%t A074097 ce[n_] := Length[NestWhileList[(n/3)*Ceiling[#] &, n/3, ! IntegerQ[#] &]] - 1; t = {}; r = 0; Do[If[ce[n] > r, AppendTo[t, r = ce[n]]], {n, 3, 5*10^5}]; t (* _Jayanta Basu_, Jul 31 2013 *)
%Y A074097 Cf. A074078, A074098.
%K A074097 nonn,more
%O A074097 1,1
%A A074097 _N. J. A. Sloane_, Sep 17 2002
%E A074097 a(13)-a(14) from _Sean A. Irvine_, Jan 09 2025
%E A074097 a(15)-a(16) from _Michael S. Branicky_, Jan 09 2025