|
%I #26 Sep 08 2022 08:45:33
%S 6,48,624,3360,32208,74256,283968,495216,1287264,4102224,5725824,
%T 13868784,23171232,29401680,45868992,83639088,142984848,168919248,
%U 270025008,360845856,414614304,615411264,787808112,1116811872
%N a(n) = ((prime(n))^5-prime(n))/5.
%C Number of monic irreducible polynomials of degree 5 over GF(prime(n)). - _Robert Israel_, Jan 07 2015
%H Vincenzo Librandi, <a href="/A138426/b138426.txt">Table of n, a(n) for n = 1..200</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Necklace_polynomial">Necklace polynomial</a>
%F a(n) = A138404(n)/5. - _R. J. Mathar_, Oct 15 2017
%p seq((ithprime(i)^5-ithprime(i))/5, i = 1 .. 50); # _Robert Israel_, Jan 07 2015
%t a = {}; Do[p = Prime[n]; AppendTo[a, (p^5 - p)/5], {n, 1, 50}]; a
%t (#^5-#)/5&/@Prime[Range[30]] (* _Harvey P. Dale_, Mar 12 2018 *)
%o (Magma) [(NthPrime((n))^5 - NthPrime((n)))/5: n in [1..30] ]; // _Vincenzo Librandi_, Jun 18 2011
%o (PARI) forprime(p=2,1e3,print1((p^5-p)/5", ")) \\ _Charles R Greathouse IV_, Jul 15 2011
%Y Cf. A008837, A127919, A138420, A208536.
%K nonn,easy
%O 1,1
%A _Artur Jasinski_, Mar 19 2008
|
