A074098 Where records occur in A074078.

4, 5, 10, 275, 508, 3694, 5675, 6562, 32420, 137782, 295409, 430645

Offset

1,1

Comments

RECORDS transform of A074078.

Links

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

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

Four more terms from Jayanta Basu, Jul 31 2013

Status

approved