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 A357608 #9 Oct 09 2022 04:22:42 %S A357608 76544,104895,126224,165375,170624,174824,201824,245024,257984,271215, %T A357608 273104,316575,338624,387855,447615,469664,477224,540224,618975, %U A357608 633555,641024,659295,705375,752895,770175,842624,843975,862784,870975,893024,913275,957824,1047375 %N A357608 Numbers k such that k and k+1 are both in A357605. %C A357608 Numbers k such that A162296(k) > 2*k and A162296(k+1) > 2*(k+1). %H A357608 Amiram Eldar, <a href="/A357608/b357608.txt">Table of n, a(n) for n = 1..10000</a> %e A357608 76544 is a term since 76544 and 76545 are both in A357605: A162296(76544) = 170688 > 2*76544 and A162296(76545) = 157248 > 2*76545. %t A357608 q[n_] := Module[{f = FactorInteger[n], p, e}, p = f[[;; , 1]]; e = f[[;; , 2]]; Times @@ ((p^(e + 1) - 1)/(p - 1)) - Times @@ (p + 1) > 2*n]; Select[Range[2, 10^6], q[#] && q[#+1] &] %Y A357608 Cf. A162296. %Y A357608 Subsequence of A013929, A096399 and A357605. %Y A357608 Similar sequences: A096399, A283418, A318167, A327635, A327942, A331412, A333951. %K A357608 nonn %O A357608 1,1 %A A357608 _Amiram Eldar_, Oct 06 2022