This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A109138 #13 Oct 12 2019 12:22:55
%S A109138 6,8,12,14,18,20,24,32,44,62,80,102,128,168,192,200,314,348,702
%N A109138 Numbers n such that 2^n + 2 is an admirable number (A111592).
%C A109138 For k > 1, A000978(k)+1 is a member. Are there any others? - _David Wasserman_, May 28 2008
%C A109138 No more terms below 1064. - _Amiram Eldar_, Oct 12 2019
%e A109138 a(3)=12 because 2^12 + 2 = 4098 and 1+2+3+683+1366+2049-6 = 4098.
%t A109138 fQ[n_] := Block[{d = Most[ Divisors[n]], k = 1}, l = Length[d]; s = Plus @@ d; While[k < l && s - 2d[[k]] > n, k++ ]; If[k > l || s != n + 2d[[k]], False, True]]; Do[ If[ fQ[2^n + 2], Print[n]], {n, 200}] (* _Robert G. Wilson v_, Aug 30 2005 *)
%Y A109138 Cf. A000978.
%K A109138 nonn,more
%O A109138 1,1
%A A109138 _Jason Earls_, Aug 18 2005
%E A109138 More terms from _David Wasserman_, May 28 2008
%E A109138 a(19) from _Amiram Eldar_, Oct 12 2019