|
%I #11 Oct 18 2019 04:06:51
%S 4,5,10,275,508,3694,5675,6562,32420,137782,295409,430645
%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 Four more terms from _Jayanta Basu_, Jul 31 2013
|
