cp's OEIS Frontend

A349257 Largest integer that can be expressed as Sum_{k=1..n} k/p(k), where p is a permutation of [n].

%I A349257 #26 Nov 13 2021 02:18:35
%S A349257 0,1,2,3,6,7,10,11,15,18,21,22,27,28,32,36,40,41,46,47
%N A349257 Largest integer that can be expressed as Sum_{k=1..n} k/p(k), where p is a permutation of [n].
%F A349257 a(n) = 1 + a(n-1) if n is prime. - _Alois P. Heinz_, Nov 12 2021
%o A349257 (Ruby)
%o A349257 def A(n)
%o A349257   max = 0
%o A349257   (1..n).to_a.permutation{|i|
%o A349257     m = (1..n).inject(0){|s, j| s + j / i[j - 1].to_r}
%o A349257     if m.denominator == 1
%o A349257       max = m if max < m
%o A349257     end
%o A349257   }
%o A349257   max.to_i
%o A349257 end
%o A349257 def A349257(n)
%o A349257   (0..n).map{|i| A(i)}
%o A349257 end
%o A349257 p A349257(8)
%Y A349257 Cf. A022819, A073090, A349277.
%K A349257 nonn,more
%O A349257 0,3
%A A349257 _Seiichi Manyama_, Nov 12 2021
%E A349257 a(12)-a(19) from _Alois P. Heinz_, Nov 12 2021