A138429 a(n) = (prime(n)^5 - prime(n))/15.
2, 16, 208, 1120, 10736, 24752, 94656, 165072, 429088, 1367408, 1908608, 4622928, 7723744, 9800560, 15289664, 27879696, 47661616, 56306416, 90008336, 120281952, 138204768, 205137088, 262602704, 372270624, 572489344, 700673360, 772849376
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..200
Programs
-
Magma
[(NthPrime((n))^5 - NthPrime((n)))/15: n in [1..30]]; // Vincenzo Librandi, Jun 18 2011
-
Mathematica
Table[p = Prime[n]; (p^5 - p)/15, {n, 1, 50}] (#^5-#)/15&/@Prime[Range[30]] (* Harvey P. Dale, Mar 06 2011 *) -
PARI
forprime(p=2,1e3,print1((p^5-p)/15", ")) \\ Charles R Greathouse IV, Jul 15 2011
Formula
a(n) = A138404(n)/15. - R. J. Mathar, Oct 15 2017