|
%I #52 Sep 05 2021 15:19:45
%S 1,3,2,7,3,11,4,15,5,9,6,23,7,12,8,31,9,35,10,39,11,18,12,47,13,21,14,
%T 55,15,59,16,63,17,27,18,71,19,30,20,79,21,83,22,42,27,36,24,95,25,39,
%U 26,49,27,107,28,111,29,45,30,119,31,48,32,127,33,131,34,63
%N a(n) is the largest subpart of the symmetric representation of sigma(n).
%C If n is an odd prime (A065091) then a(n) = (n + 1)/2.
%C If n is a power of 2 (A000079) then a(n) = 2*n - 1.
%C If n is a perfect number (A000396) then a(n) = 2*n - 1, assuming there are no odd perfect numbers.
%C a(n) is also the largest element in the n-th row of the triangles A279391, A280851 and A296508.
%C The symmetric representation of sigma(n) has A001227(n) subparts.
%C For the definition of the "subpart" see A279387.
%C For a diagram with the subparts for the first 16 positive integers see A296508.
%e For n = 15 the subparts of the symmetric representation of sigma(15) are [8, 7, 1, 8], the largest subpart is 8, so a(15) = 8.
%t (* a280851[] and support function are defined in A280851 *)
%t a296512[n_]:=Max[a280851[n]]
%t Map[a296512,Range[68] (* _Hartmut F. W. Hoft_, Sep 05 2021 *)
%Y Shares infinitely many terms with A241558, A241559, A241838, A296513 (and possibly more).
%Y Cf. A000079, A000203 (sum of subparts), A000225, A000396, A001227 (number of subparts), A065091, A196020, A235791, A236104, A237048,A 237270, A237271, A237591, A237593, A245092, A279387, A279391, A280850, A280851, A296508.
%K nonn
%O 1,2
%A _Omar E. Pol_, Feb 10 2018
%E More terms from _Omar E. Pol_, Aug 28 2021
|
