|
%I #18 Sep 08 2022 08:45:33
%S 2,16,208,1120,10736,24752,94656,165072,429088,1367408,1908608,
%T 4622928,7723744,9800560,15289664,27879696,47661616,56306416,90008336,
%U 120281952,138204768,205137088,262602704,372270624,572489344,700673360,772849376
%N a(n) = (prime(n)^5 - prime(n))/15.
%H Vincenzo Librandi, <a href="/A138429/b138429.txt">Table of n, a(n) for n = 1..200</a>
%F a(n) = A138404(n)/15. - _R. J. Mathar_, Oct 15 2017
%t Table[p = Prime[n]; (p^5 - p)/15, {n, 1, 50}]
%t (#^5-#)/15&/@Prime[Range[30]] (* _Harvey P. Dale_, Mar 06 2011 *)
%o (Magma) [(NthPrime((n))^5 - NthPrime((n)))/15: n in [1..30]]; // _Vincenzo Librandi_, Jun 18 2011
%o (PARI) forprime(p=2,1e3,print1((p^5-p)/15", ")) \\ _Charles R Greathouse IV_, Jul 15 2011
%K nonn,easy
%O 1,1
%A _Artur Jasinski_, Mar 19 2008
|
