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 A164337 #11 Aug 31 2017 22:23:57
%S A164337 64,729,1024,4096,15625,16384,32768,59049,117649,262144,531441,
%T A164337 1048576,1771561,2097152,4194304,4782969,4826809,9765625,14348907,
%U A164337 16777216,24137569,47045881,67108864,148035889,244140625,268435456,282475249
%N A164337 Those powers of primes that are not in sequence A164336.
%H A164337 Michael De Vlieger, <a href="/A164337/b164337.txt">Table of n, a(n) for n = 1..10000</a>
%t A164337 Block[{a = {1}, k = 50, b, nn = 10^9}, Do[If[Length@ # == 1 && MemberQ[a, First@ #], AppendTo[a, i]] &[FactorInteger[i][[All, -1]]], {i, 2, Prime@ k}]; b = Complement[Range@ Prime@ k, a]; Union@ Flatten@ MapIndexed[Prime[First@ #2]^#1 &, DeleteCases[#, {}]] &@ Map[Function[p, TakeWhile[b, # <= Floor@ Log[p, nn] &]], Prime@ Range@ k]] (* _Michael De Vlieger_, Aug 31 2017 *)
%Y A164337 Cf. A164336.
%K A164337 nonn
%O A164337 1,1
%A A164337 _Leroy Quet_, Aug 13 2009
%E A164337 More terms from _Hagen von Eitzen_, Oct 03 2009