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 A094502 #12 Sep 22 2016 05:18:32
%S A094502 1,4,8,32,32,128,128,256,512,1024,1024,4096,4096,8192,16384,32768,
%T A094502 32768,65536,131072,131072,262144,262144,524288,524288,1048576,
%U A094502 1048576,1048576,2097152,2097152,4194304,4194304,4194304,4194304,8388608
%N A094502 a(n) = A000203(A046528(n)): sigma of those numbers whose sigma is a power of 2, in order of appearance.
%C A094502 Observe that certain powers of 2 do not arise as sum of divisors of something: 2,16,64,2048. Are there more? Yes, see A094505 and A078426.
%F A094502 a(n) = 2^A048947(n). - _R. J. Mathar_, Sep 22 2016
%t A094502 {ta=Table[0, {100}], u=1}; Do[If[IntegerQ[Log[2, DivisorSigma[1, n]]], Print[n];ta[[u]]=n;u=u+1], {n, 1, 100000000}] DivisorSigma[1, ta]
%o A094502 (PARI) isok(n) = (n==1) || (ispower(sigma(n), , &r) && (r==2));
%o A094502 for(n=1, 1e7, if(isok(n), print1(sigma(n)", "))) \\ _Altug Alkan_, Nov 01 2015
%Y A094502 Cf. A000203, A046528, A078426, A094505.
%K A094502 nonn
%O A094502 1,2
%A A094502 _Labos Elemer_, Jun 02 2004