OFFSET
1,1
COMMENTS
There are no more terms below 10^13.
There are no numbers k such that k and k+1 are both unitary abundant numbers with definition 1 (A302573) below 10^13.
MATHEMATICA
f1[p_, e_] := 1 + 1/p^e; f2[p_, e_] := p^e/(p^e + 1);
puabQ[n_] := (r = Times @@ f1 @@@ (f = FactorInteger[n])) > 2 && r * Max @@ f2 @@@ f <= 2;
Select[Import["https://oeis.org/A331412/b331412.txt", "Table"][[;; , 2]], puabQ[#] && puabQ[# + 1] &]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Mar 31 2023
STATUS
approved