login
A164337
Those powers of primes that are not in sequence A164336.
10
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
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
KEYWORD
nonn
AUTHOR
Leroy Quet, Aug 13 2009
EXTENSIONS
More terms from Hagen von Eitzen, Oct 03 2009
STATUS
approved