This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A279106 #15 Dec 06 2016 22:18:15 %S A279106 1,3,7,11,15,23,31,35,39,47,55,59,63,71,79,83,95,107,111,119,127,131, %T A279106 143,159,167,175,179,191,199,207,215,223,239,251,255,263,279,287,299, %U A279106 311,319,323,335,351,359,383,391,395,399,407,415,419,431,439,447,455,467,479 %N A279106 a(n) = number of legs in each part of the symmetric representation of sigma(A279105(n)). %F A279106 a(n) = 2 * A279105(n) - 1. %e A279106 a(3) = 7 = 2 * A279105(3) - 1; %e A279106 21 is not in the sequence since 11=(21+1)/2 is not in A174793. %t A279106 a174973Q[n_] := Module[{d=Divisors[n]}, Select[Rest[d] - 2*Most[d], #>0&]=={}] %t A279106 a279106[n_]:=2*Select[Range[n], a174973Q] - 1 %t A279106 a279106[250] (* sequence data *) %Y A279106 Cf. A174973, A237270, A237271, A237593, A279105. %K A279106 nonn %O A279106 1,2 %A A279106 _Hartmut F. W. Hoft_, Dec 06 2016