A138459 a(n) = ((n-th prime)^6-(n-th prime)^4)/12.
4, 54, 1250, 9604, 146410, 399854, 2004504, 3909630, 12313004, 49509670, 73881680, 213654354, 395606540, 526495354, 897861304, 1846372554, 3514034690, 4292210710, 7536519254, 10672906020, 12608819004, 20254042120, 27241076254
Offset: 1
Programs
-
Mathematica
a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^4)/12], {n, 1, 24}]; a
-
PARI
forprime(p=2,1e3,print1((p^6-p^4)/12", ")) \\ Charles R Greathouse IV, Jul 15 2011
Comments