OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1546 (terms below 10^12)
EXAMPLE
268005374 is in the sequence since 268005374, 268005375 and 268005376 are all bi-unitary abundant numbers (A292982): bsigma(268005374) = 568995840 > 2 * 268005374, bsigma(268005375) = 540633600 > 2 * 268005375, and bsigma(268005376) = 541258200 > 2 * 268005376 (bsigma is the sum of bi-unitary divisors, A188999).
MATHEMATICA
f[p_, e_] := (p^(e + 1) - 1)/(p - 1) - If[OddQ[e], 0, p^(e/2)]; bsigma[1] = 1; bsigma[n_] := Times @@ f @@@ FactorInteger[n]; abQ[n_] := bsigma[n] > 2*n; v = Cases[Import["https://oeis.org/A096536/b096536.txt", "Table"], {_, _}][[;; , 2]]; Select[v, And @@ abQ /@ (# + {0, 1, 2}) &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 18 2022
STATUS
approved