OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
364 is in the sequence since 364, 366, and 368 are all admirable numbers.
MATHEMATICA
admQ[n_] := (ab = DivisorSigma[1, n] - 2 n) > 0 && EvenQ[ab] && ab/2 < n && Divisible[n, ab/2]; k = 0; s = {}; Do[If[admQ[n], k++; If[k > 2, AppendTo[s, n - 4]], k = 0], {n, 6, 2*10^6, 2}]; s (* for even terms; after Shyam Sunder Gupta at A231088 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 07 2019
STATUS
approved