A074098 Where records occur in A074078.

4, 5, 10, 275, 508, 3694, 5675, 6562, 32420, 137782, 295409, 430645, 13564046, 22289981, 387420490, 3486784402

Offset: 1

Author

N. J. A. Sloane, Sep 17 2002

Keywords

• nonn
• more

Comments

RECORDS transform of A074078.

Links

• N. J. A. Sloane, Transforms

Crossrefs

Cf. A074078, A074097.

Programs

Mathematica

ce[n_] := Length[NestWhileList[(n/3)*Ceiling[#] &, n/3, ! IntegerQ[#] &]] - 1; t = {}; r = 0; Do[If[ce[n] > r, AppendTo[t, n]; r = ce[n]], {n, 3, 5*10^5}]; t (* Jayanta Basu, Jul 31 2013 *)

Extensions

a(9)-a(12) from Jayanta Basu, Jul 31 2013

a(13)-a(14) from Sean A. Irvine, Jan 09 2025

a(15)-a(16) from Michael S. Branicky, Jan 09 2025