close
login
A024625
a(n) is the position of cube of the n-th prime among the powers of primes (A000961).
2
7, 16, 43, 87, 245, 361, 699, 930, 1514, 2777, 3303, 5280, 6946, 7892, 10027, 13871, 18550, 20323, 26219, 30762, 33157, 41178, 47156, 57135, 72447, 80965, 85429, 94953, 99932, 110400, 152587, 166273, 188247, 196005, 237795, 246807, 275002, 305246
OFFSET
1,1
LINKS
FORMULA
A000961(a(n)) = A030078(n). - Amiram Eldar, Jun 20 2025
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
STATUS
approved