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 A068332 #13 May 01 2025 08:24:07 %S A068332 5,7,9,21,22,26,27,68,75,76,92,98,99,116,117,124,258,266,273,282,285, %T A068332 286,290,296,297,310,318,322,328,344,345,351,354,357,366,370,374,375, %U A068332 376,385,399,402,406,410,418,424,426,429,430,434,435,438,442,455,459 %N A068332 Numbers k such that 2^tau(k) <= k < 2*2^tau(k). %H A068332 Amiram Eldar, <a href="/A068332/b068332.txt">Table of n, a(n) for n = 1..10000</a> %t A068332 q[k_] := Module[{d = DivisorSigma[0, k]}, 2^d <= k < 2^(d+1)]; Select[Range[500], q] (* _Amiram Eldar_, May 01 2025 *) %o A068332 (PARI) isok(k) = my(d = numdiv(k)); 2^d <= k && k < 2^(d+1); \\ _Amiram Eldar_, May 01 2025 %Y A068332 Cf. A000005, A338506. %K A068332 easy,nonn %O A068332 1,1 %A A068332 _Benoit Cloitre_, Mar 25 2002