The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A357609 Numbers k such that k, k+1, and k+2 are all in A357605. 1
 10667829248, 14322877568, 25929352448, 26967189248, 31315096448, 32186016224, 35337613310, 36312573374, 41326711424, 53162460350, 69405075584, 71840196350, 72806666750, 73217757248, 83103523424, 106184935934, 109302242048, 111640866974, 115294917374, 116768901248 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Numbers k such that A162296(k) > 2*k, A162296(k+1) > 2*(k+1), and A162296(k+2) > 2*(k+2). LINKS Amiram Eldar, Table of n, a(n) for n = 1..209 (terms below 10^12) EXAMPLE 10667829248 is a term since 10667829248, 10667829249 and 10667829250 are all in A357605: A162296(10667829248) = 21342038784 > 2*10667829248, A162296(10667829249) = 21798236160 > 2*10667829249 and A162296(10667829250) = 21810824640 > 2*10667829250. MATHEMATICA 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]; v = Cases[Import["https://oeis.org/A096536/b096536.txt", "Table"], {_, _}][[;; , 2]]; s = {}; Do[n = v[[k]]; If[q[n] && q[n+1] && q[n+2], AppendTo[s, n]], {k, 1, Length[v]}]; s CROSSREFS Cf. A162296. Subsequence of A013929, A096536, A357605 and A357608. Sequence in context: A371361 A135047 A017541 * A112453 A374780 A321707 Adjacent sequences: A357606 A357607 A357608 * A357610 A357611 A357612 KEYWORD nonn AUTHOR Amiram Eldar, Oct 06 2022 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 11 23:45 EDT 2024. Contains 375082 sequences. (Running on oeis4.)