%I #7 Dec 29 2023 10:38:38
%S 24,324,7500,57624,878460,2399124,12027024,23457780,73878024,
%T 297058020,443290080,1281926124,2373639240,3158972124,5387167824,
%U 11078235324,21084208140,25753264260,45219115524,64037436120,75652914024
%N a(n) = ((n-th prime)^6-(n-th prime)^4)/2.
%t a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^4)/2], {n, 1, 24}]; a
%o (PARI) forprime(p=2,1e3,print1((p^6-p^4)/2", ")) \\ _Charles R Greathouse IV_, Jul 15 2011
%K nonn,easy
%O 1,1
%A _Artur Jasinski_, Mar 22 2008
|