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 A175050 #10 Nov 24 2017 17:33:38 %S A175050 1,8,27,36,100,125,128,196,216,225,256,343,441,484,676,900,1000,1089, %T A175050 1156,1225,1296,1331,1444,1521,1764,2116,2187,2197,2304,2601,2744, %U A175050 3025,3249,3364,3375,3844,4225,4356,4761,4900,4913,5476,5929,6084,6400,6561 %N A175050 Positive integers n where both n and the number of divisors of n are perfect powers. (Both n and d(n) are elements of A001597.) %H A175050 Michael De Vlieger, <a href="/A175050/b175050.txt">Table of n, a(n) for n = 1..10000</a> %e A175050 128 has 8 divisors. Since 128 is a perfect power (128 = 2^7), and since 8 is also a perfect power (8 = 2^3), then 128 is in this sequence. %t A175050 Block[{nn = 10^4, s}, s = Union@ Flatten@ Table[n^e, {e, Prime@ Range@ PrimePi@ Log2@ nn}, {n, nn^(1/e)}]; Select[s, MemberQ[s, DivisorSigma[0, #]] &]] (* _Michael De Vlieger_, Nov 24 2017, after _T. D. Noe_ at A001597 *) %Y A175050 Cf. A001597, A175051. %K A175050 nonn %O A175050 1,2 %A A175050 _Leroy Quet_, Dec 08 2009 %E A175050 Extended by _Ray Chandler_, Dec 10 2009