%I #13 Jun 06 2023 17:37:25
%S 20,44,188,297,336,400,425,540,575,605,704,752,764,908,912,1025,1053,
%T 1124,1172,1183,1365,1380,1412,1420,1452,1475,1484,1519,1604,1625,
%U 1809,1844,1856,1936,1953,2107,2192,2205,2255,2320,2325,2348,2368,2372,2468
%N Numbers such that the arithmetic mean of the cubes of their prime factors (taken with multiplicity) is a prime.
%H Hieronymus Fischer, <a href="/A134619/b134619.txt">Table of n, a(n) for n = 1..10000</a>
%e a(10)=605, since 605=5*11*11 and (5^3+11^3+11^3)/3=929 which is prime.
%t amcpfQ[n_]:=PrimeQ[Mean[Flatten[PadRight[{},#[[2]],#[[1]]]&/@FactorInteger[n]]^3]]; Select[ Range[ 2500],amcpfQ] (* _Harvey P. Dale_, Jun 06 2023 *)
%o (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
%Y Cf. A001597, A025475, A134333, A134344, A134376.
%Y Cf. A134600, A134602, A134605, A134608, A134613, A134617, A134621.
%K nonn
%O 1,1
%A _Hieronymus Fischer_, Nov 11 2007
%E Minor edits by _Hieronymus Fischer_, May 06 2013