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
KEYWORD
nonn
AUTHOR
Leroy Quet, Aug 13 2009
EXTENSIONS
More terms from Hagen von Eitzen, Oct 03 2009
STATUS
approved