%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