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 A146746 #15 Jun 11 2024 08:12:50
%S A146746 5,14,54,55,56,58,70,87,88,89,114,118,123,125,178,201,204,206,220,246,
%T A146746 354,358,417,419,459,478,500,534,549,594,604,620,646,654,663,715,718,
%U A146746 753,834,835,838,894,957
%N A146746 Duplicate of A073541.
%C A146746 A000203(n+1)*A000203(n)/(A000203(n+1)+A000203(n)) = c, c an integer.
%C A146746 Same as A073541. - _Georg Fischer_, Nov 02 2018
%t A146746 sQ[n_]:=Module[{sn=DivisorSigma[1,n],sn1=DivisorSigma[1,n+1]},Divisible[sn sn1,sn+sn1]]; Select[Range[1000],sQ] (* _Harvey P. Dale_, Apr 21 2011 *)
%Y A146746 Cf. A083795, A063647, A073541, A000203.
%K A146746 dead
%O A146746 1,1
%A A146746 _Ctibor O. Zizka_, Nov 01 2008
%E A146746 Corrected by _Harvey P. Dale_, Apr 21 2011