cp's OEIS Frontend

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.

A357608 Numbers k such that k and k+1 are both in A357605.

This page as a plain text file.
%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