OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..209 (terms below 10^12)
EXAMPLE
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
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 06 2022
STATUS
approved