OFFSET
1,1
LINKS
Hieronymus Fischer, Table of n, a(n) for n = 1..10000
EXAMPLE
a(10)=605, since 605=5*11*11 and (5^3+11^3+11^3)/3=929 which is prime.
MATHEMATICA
amcpfQ[n_]:=PrimeQ[Mean[Flatten[PadRight[{}, #[[2]], #[[1]]]&/@FactorInteger[n]]^3]]; Select[ Range[ 2500], amcpfQ] (* Harvey P. Dale, Jun 06 2023 *)
PROG
(PARI) lista(m) = {for (i=2, m, f = factor(i); s = sum (j=1, length(f~), f[j, 1]^3*f[j, 2]); s /= bigomega(i); if (type(s) == "t_INT" && isprime(s), print1(i, ", ")); ); } \\ Michel Marcus, Apr 14 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Hieronymus Fischer, Nov 11 2007
EXTENSIONS
Minor edits by Hieronymus Fischer, May 06 2013
STATUS
approved