|
%I #7 Oct 15 2013 10:31:39
%S 1,2,3,5,3,3,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
%T 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
%U 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
%N Greatest of the most frequent prime factors of squarefree numbers <= n; a(1)=1.
%C a(n)=2 for n>14.
%t max = 200; primeFactors = FactorInteger[#][[All, 1]]& /@ Select[Range[max], SquareFreeQ]; a[n_] := Sort[ Tally[ Take[ primeFactors, n] // Flatten], Which[#1[[2]] > #2[[2]], True, #1[[2]] == #2[[2]], #1[[1]] > #2[[1]], True, False]& ][[1, 1]]; Table[a[n], {n, 1, primeFactors // Length}] (* _Jean-François Alcover_, Oct 14 2013 *)
%Y Cf. A005117, A072747, A072748, A072749, A072750.
%K nonn,nice
%O 1,2
%A _Reinhard Zumkeller_, Jul 08 2002
|
