Caldwell and Honaker, <a href="httphttps://primes.utmt5k.eduorg/curios/page.php?curio_id
Caldwell and Honaker, <a href="httphttps://primes.utmt5k.eduorg/curios/page.php?curio_id
reviewed
approved
proposed
reviewed
editing
proposed
Robert Israel, <a href="/A297401/b297401.txt">Table of n, a(n) for n = 1..10000</a>
N:= 1000: # to get all terms <= N
P:= select(isprime, [2, seq(i, i=3..N)]):
R:= NULL:
for p in P do
if p^7 <= N then R:= R, p^7 fi;
if p^3 > N then break fi;
for q in P while p^3*q <= N do if q <> p then R:= R, p^3*q fi od:
od:
sort([R]); # Robert Israel, Dec 31 2017
proposed
editing
editing
proposed
editing
proposed
proposed
editing