OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..650
FORMULA
MATHEMATICA
Position[Select[Range[10^6], # == 1 || PrimePowerQ[#] &], _?(PrimeQ[Surd[#, 3]] &)] // Flatten (* Amiram Eldar, Jun 20 2025 *)
PROG
(PARI) list(lim) = {my(c = 1, e); for(k = 1, lim, e = isprimepower(k); if(e, c++; if(e == 3, print1(c, ", ")))); } \\ Amiram Eldar, Jun 20 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved
