A074098 Where records occur in A074078.

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

Offset

1,1

Comments

RECORDS transform of A074078.

Links

Table of n, a(n) for n=1..16.

N. J. A. Sloane, Transforms

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 *)

Crossrefs

Cf. A074078, A074097.

Sequence in context: A109675 A052508 A305887 * A196270 A295656 A126069

Adjacent sequences: A074095 A074096 A074097 * A074099 A074100 A074101

Keyword

nonn,more

Author

N. J. A. Sloane, Sep 17 2002

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

Status

approved