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