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,1

Links

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

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

Crossrefs

Cf. A164336.

Sequence in context: A179149 A074471 A164345 * A354178 A367803 A161860

Adjacent sequences: A164334 A164335 A164336 * A164338 A164339 A164340

Keyword

nonn

Author

Leroy Quet, Aug 13 2009

Extensions

More terms from Hagen von Eitzen, Oct 03 2009

Status

approved