%I #10 Aug 31 2019 15:36:10
%S 1,4,8,12,16,24,36,48,72,96,120,144,216,240,288,360,480,576,720,1080,
%T 1440,2160,2520,2880,3360,3600,4320,5040,7200,7560,8640,10080,15120,
%U 20160,25200,30240,40320,45360,50400,60480,75600,90720,100800,110880,120960
%N Positions of records in A218320.
%C Distinct from A033833; first term not in A033833 is a(24) = 2520. There appear to be increasingly many terms a(n) not in A033833 as n increases.
%C A291834(13) = 192 is the smallest term not in a(n).
%C Subsequence of A025487.
%H David A. Corneth, <a href="/A291928/b291928.txt">Table of n, a(n) for n = 1..160</a>
%t f[n_, i_, t_] := f[n, i, t] = If[n == 1, 1, If[t == 1, Boole[n <= i], Sum[f[n/d, d, t - 1], {d, Select[Divisors@ n, # <= i &]}]]]; With[{s = Array[f[#, #, 4] &, 10^5]}, Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s]]] (* _Michael De Vlieger_, Sep 06 2017, after _Alois P. Heinz_ at A218320 *)
%Y Cf. A002182, A007416, A025487, A033833, A218320.
%K nonn
%O 1,2
%A _Michael De Vlieger_, Sep 06 2017