A138444 a(n) = ((n-th prime)^6-(n-th prime^2))/5.
12, 144, 3120, 23520, 354288, 965328, 4827456, 9409104, 29607072, 118964496, 177500544, 513145008, 950020512, 1264272240, 2155842624, 4432871664, 8436106032, 10304074128, 18091675536, 25620055776, 30266844192, 48617489856
Offset: 1
Programs
-
Mathematica
a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^2)/5], {n, 1, 50}]; a (#^6-#^2)/5&/@Prime[Range[30]] (* Harvey P. Dale, Oct 18 2013 *)
-
PARI
forprime(p=2,1e3,print1((p^6-p^2)/5", ")) \\ Charles R Greathouse IV, Jul 15 2011
Formula
a(n) = A138409(n)/5. - R. J. Mathar, Oct 15 2017