|
| |
|
|
A138452
|
|
a(n) = ((n-th prime)^6-(n-th prime)^3))/2.
|
|
3
|
|
|
|
28, 351, 7750, 58653, 885115, 2412306, 12066328, 23519511, 74011861, 297399466, 443736945, 1282837878, 2375017660, 3160641771, 5389555753, 11082106126, 21090164131, 25760073690, 45229040703, 64049963005, 75666918636
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
|
|
|
FORMULA
|
a(n) = binomial(prime(n)^3, 2) = A000217(A030078(n)). - Jon Maiga, Nov 14 2018
a(n) = (A030078(n) * A006093(n) * A060800(n))/2. - Vincenzo Librandi, Nov 14 2018
|
|
|
MATHEMATICA
|
a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^3)/2], {n, 1, 24}]; a
|
|
|
PROG
|
(PARI) forprime(p=2, 1e3, print1((p^6-p^3)/2", ")) \\ Charles R Greathouse IV, Jul 15 2011
(Magma) [(p^6 - p^3) / 2: p in PrimesUpTo(100)]; // Vincenzo Librandi, Nov 14 2018
|
|
|
CROSSREFS
|
Cf. A000217, A006093, A030078, A060800.
Sequence in context: A173421 A085744 A163719 * A276286 A125440 A122732
Adjacent sequences: A138449 A138450 A138451 * A138453 A138454 A138455
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
Artur Jasinski, Mar 22 2008
|
|
|
STATUS
|
approved
|
| |
|
|
