|
%I #9 Dec 29 2023 10:40:10
%S 16,243,6250,50421,805255,2227758,11358856,22284891,70799773,
%T 287156086,429437265,1248191226,2317124020,3087177303,5274935161,
%U 10873082818,20732804671,25337889030,44554128531,63148027285,74630577348
%N a(n) = ((n-th prime)^6-(n-th prime)^5)/2.
%t a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^5)/2], {n, 1, 24}]; a
%o (PARI) forprime(p=2,1e3,print1((p^6-p^5)/2", ")) \\ _Charles R Greathouse IV_, Jun 16 2011
%K nonn,easy
%O 1,1
%A _Artur Jasinski_, Mar 22 2008
|
