A074098 - OEIS

%I #18 Jan 10 2025 14:48:36

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

%T 22289981,387420490,3486784402

%N Where records occur 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, n]; r = ce[n]], {n, 3, 5*10^5}]; t (* _Jayanta Basu_, Jul 31 2013 *)

%Y Cf. A074078, A074097.

%K nonn,more

%O 1,1

%A _N. J. A. Sloane_, Sep 17 2002

%E a(9)-a(12) from _Jayanta Basu_, Jul 31 2013

%E a(13)-a(14) from _Sean A. Irvine_, Jan 09 2025

%E a(15)-a(16) from _Michael S. Branicky_, Jan 09 2025