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 A067282 #22 Apr 25 2020 19:36:44 %S A067282 1,5,52,55,185,506,551,590,644,667,707,2285,2587,2758,7551,10366, %T A067282 11336,11564,11798,12750,16616,16703,16764,17383,18239,24350,24415, %U A067282 26586,33263,35541,40382,63248,76247,76622,92379,95069,97341,106312,111388 %N A067282 Numbers k such that phi(k) + phi(k+1) divides sigma(k) + sigma(k+1). %C A067282 Presumably the ratio (sigma(n)+sigma(n+1))/(phi(n)+phi(n+1)) can be arbitrarily large. - _Labos Elemer_, Sep 17 2004 %C A067282 The first term for which the ratio is k for k = 2, 3, ... is 1, 5, 644, 6513584, ... - _Amiram Eldar_, Mar 02 2020 %H A067282 Amiram Eldar, <a href="/A067282/b067282.txt">Table of n, a(n) for n = 1..200</a> %t A067282 Select[Range[120000], Divisible[DivisorSigma[1, #] + DivisorSigma[1, # + 1], EulerPhi[#] + EulerPhi[# + 1]] &] (* _Amiram Eldar_, Mar 02 2020 *) %t A067282 Select[Partition[Table[{n,EulerPhi[n],DivisorSigma[1,n]},{n,111400}],2,1], Divisible[ #[[1,3]]+#[[2,3]],#[[1,2]]+#[[2,2]]]&][[All,1,1]] (* _Harvey P. Dale_, Apr 25 2020 *) %Y A067282 Cf. A000010, A000203, A092403, A092404. %K A067282 nonn %O A067282 1,2 %A A067282 _Benoit Cloitre_, Feb 23 2002 %E A067282 More terms from _Labos Elemer_, Sep 17 2004