A164337 Those powers of primes that are not in sequence A164336.

64, 729, 1024, 4096, 15625, 16384, 32768, 59049, 117649, 262144, 531441, 1048576, 1771561, 2097152, 4194304, 4782969, 4826809, 9765625, 14348907, 16777216, 24137569, 47045881, 67108864, 148035889, 244140625, 268435456, 282475249

Offset: 1

Author

Leroy Quet, Aug 13 2009

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A164336.

Programs

Mathematica

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 *)

Extensions

More terms from Hagen von Eitzen, Oct 03 2009