A164337 - OEIS

%I #11 Aug 31 2017 22:23:57

%S 64,729,1024,4096,15625,16384,32768,59049,117649,262144,531441,

%T 1048576,1771561,2097152,4194304,4782969,4826809,9765625,14348907,

%U 16777216,24137569,47045881,67108864,148035889,244140625,268435456,282475249

%N Those powers of primes that are not in sequence A164336.

%H Michael De Vlieger, <a href="/A164337/b164337.txt">Table of n, a(n) for n = 1..10000</a>

%t 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 Cf. A164336.

%K nonn

%O 1,1

%A _Leroy Quet_, Aug 13 2009

%E More terms from _Hagen von Eitzen_, Oct 03 2009