A138451 a(n) = (prime(n)^6-prime(n)^2)/60.
1, 12, 260, 1960, 29524, 80444, 402288, 784092, 2467256, 9913708, 14791712, 42762084, 79168376, 105356020, 179653552, 369405972, 703008836, 858672844, 1507639628, 2135004648, 2522237016, 4051457488, 5449006108, 8283021384
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[( NthPrime(n)^6-NthPrime(n)^2 )/60: n in [1..30]]; // Vincenzo Librandi, Sep 11 2014
-
Maple
seq((ithprime(n)^6-ithprime(n)^2)/60, n=1..100); # Robert Israel, Sep 11 2014
-
Mathematica
a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^2)/60], {n, 1, 50}]; a (#^6-#^2)/60&/@Prime[Range[30]] (* Harvey P. Dale, Sep 11 2014 *) -
PARI
forprime(p=2,1e3,print1((p^6-p^2)/60", ")) \\ Charles R Greathouse IV, Jul 15 2011
Formula
a(n) = A213547(prime(n)-1). - Robert Israel, Sep 11 2014