A138457 a(n) = ((n-th prime)^6-(n-th prime)^4)/8.
6, 81, 1875, 14406, 219615, 599781, 3006756, 5864445, 18469506, 74264505, 110822520, 320481531, 593409810, 789743031, 1346791956, 2769558831, 5271052035, 6438316065, 11304778881, 16009359030, 18913228506, 30381063180
Offset: 1
Programs
-
Mathematica
a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^4)/8], {n, 1, 24}]; a
-
PARI
forprime(p=2,1e3,print1((p^6-p^4)/8", ")) \\ Charles R Greathouse IV, Jul 15 2011