OFFSET
1,1
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..111 (terms below 10^20)
MATHEMATICA
fQ[n_] := DivisorSigma[1, n] == 2 n + 128; Select[ Range@ 10^8, fQ] (* Robert G. Wilson v, Nov 19 2017 *)
PROG
(PARI) isok(n) = sigma(n) - 2*n == 128; \\ Michel Marcus, Sep 20 2017
CROSSREFS
Subsequence of A259174.
Deficiency k: A191363 (k=2), A125246 (k=4), A141548 (k=6), A125247 (k=8), A101223 (k=10), A141549 (k=12), A141550 (k=14), A125248 (k=16), A223608 (k=18), A223607 (k=20), A223606 (k=22), A385255(k=24), A275702 (k=26), A387352 (k=32), A175730 (k=42), A101259 (k=54), A275997 (k=64).
KEYWORD
nonn
AUTHOR
Fabian Schneider, Sep 20 2017
EXTENSIONS
a(9)-a(18) from Michel Marcus, Sep 20 2017
a(19)-a(24), a(26), a(29)-a(30), a(33) from Robert G. Wilson v, Nov 20 2017
Missing terms a(25), a(27)-a(28), a(31)-a(32) inserted and terms a(34) onward added by Max Alekseyev, Aug 30 2025
STATUS
approved
