%I #9 Dec 29 2023 10:39:34
%S 2,27,625,4802,73205,199927,1002252,1954815,6156502,24754835,36940840,
%T 106827177,197803270,263247677,448930652,923186277,1757017345,
%U 2146105355,3768259627,5336453010,6304409502,10127021060,13620538127
%N a(n) = ((n-th prime)^6-(n-th prime)^4)/24.
%t a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^4)/24], {n, 1, 24}]; a
%t (#^6-#^4)/24&/@Prime[Range[30]] (* _Harvey P. Dale_, Apr 27 2018 *)
%o (PARI) forprime(p=2,1e3,print1((p^6-p^4)/24", ")) \\ _Charles R Greathouse IV_, Jul 15 2011
%K nonn,easy
%O 1,1
%A _Artur Jasinski_, Mar 22 2008