The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #14 Jan 10 2025 14:48:46
%S 2,4,13,15,21,22,23,27,29,34,36,40,42,50,75,81
%N Record values in A074078.
%C RECORDS transform of A074078.
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%t 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 Cf. A074078, A074098.
%K nonn,more
%O 1,1
%A _N. J. A. Sloane_, Sep 17 2002
%E a(13)-a(14) from _Sean A. Irvine_, Jan 09 2025
%E a(15)-a(16) from _Michael S. Branicky_, Jan 09 2025