cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-7 of 7 results.

A138441 a(n) = ((n-th prime)^6-(n-th prime^2))/2.

Original entry on oeis.org

30, 360, 7800, 58800, 885720, 2413320, 12068640, 23522760, 74017680, 297411240, 443751360, 1282862520, 2375051280, 3160680600, 5389606560, 11082179160, 21090265080, 25760185320, 45229188840, 64050139440, 75667110480, 121543724640, 163470183240
Offset: 1

Views

Author

Artur Jasinski, Mar 19 2008

Keywords

Programs

  • Mathematica
    a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^2)/2], {n, 1, 50}]; a
(#^6-#^2)/2&/@Prime[Range[30]] (* Harvey P. Dale, Dec 20 2021 *)
  • PARI
    forprime(p=2,1e3,print1((p^6-p^2)/2", ")) \\ Charles R Greathouse IV, Jul 15 2011

Formula

a(n) = A138409(n)/2. - R. J. Mathar, Oct 15 2017

Extensions

Corrected by N. J. A. Sloane May 15 2008 (all the entries were wrong)

A138416 a(n) = (p^3 - p^2)/2, where p = prime(n).

Original entry on oeis.org

2, 9, 50, 147, 605, 1014, 2312, 3249, 5819, 11774, 14415, 24642, 33620, 38829, 50807, 73034, 100949, 111630, 148137, 176435, 191844, 243399, 282449, 348524, 451632, 510050, 541059, 606797, 641574, 715064, 1016127, 1115465, 1276292, 1333149
Offset: 1

Views

Author

Artur Jasinski, Mar 19 2008

Keywords

Comments

Differences (p^k - p^m)/q with k > m:
expression OEIS sequence
-------------- -------------
p^2 - p A036689
(p^2 - p)/2 A008837
p^3 - p A127917
(p^3 - p)/2 A127918
(p^3 - p)/3 A127919
(p^3 - p)/6 A127920
p^3 - p^2 A135177
(p^3 - p^2)/2 this sequence
p^4 - p A138401
(p^4 - p)/2 A138417
p^4 - p^2 A138402
(p^4 - p^2)/2 A138418
(p^4 - p^2)/3 A138419
(p^4 - p^2)/4 A138420
(p^4 - p^2)/6 A138421
(p^4 - p^2)/12 A138422
p^4 - p^3 A138403
(p^4 - p^3)/2 A138423
p^5 - p A138404
(p^5 - p)/2 A138424
(p^5 - p)/3 A138425
(p^5 - p)/5 A138426
(p^5 - p)/6 A138427
(p^5 - p)/10 A138428
(p^5 - p)/15 A138429
(p^5 - p)/30 A138430
p^5 - p^2 A138405
(p^5 - p^2)/2 A138431
p^5 - p^3 A138406
(p^5 - p^3)/2 A138432
(p^5 - p^3)/3 A138433
(p^5 - p^3)/4 A138434
(p^5 - p^3)/6 A138435
(p^5 - p^3)/8 A138436
(p^5 - p^3)/12 A138437
(p^5 - p^3)/24 A138438
p^5 - p^4 A138407
(p^5 - p^4)/2 A138439
p^6 - p A138408
(p^6 - p)/2 A138440
p^6 - p^2 A138409
(p^6 - p^2)/2 A138441
(p^6 - p^2)/3 A138442
(p^6 - p^2)/4 A138443
(p^6 - p^2)/5 A138444
(p^6 - p^2)/6 A138445
(p^6 - p^2)/10 A138446
(p^6 - p^2)/12 A138447
(p^6 - p^2)/15 A138448
(p^6 - p^2)/20 A122220
(p^6 - p^2)/30 A138450
(p^6 - p^2)/60 A138451
p^6 - p^3 A138410
(p^6 - p^3)/2 A138452
p^6 - p^4 A138411
(p^6 - p^4)/2 A138453
(p^6 - p^4)/3 A138454
(p^6 - p^4)/4 A138455
(p^6 - p^4)/6 A138456
(p^6 - p^4)/8 A138457
(p^6 - p^4)/12 A138458
(p^6 - p^4)/24 A138459
p^6 - p^5 A138412
(p^6 - p^5)/2 A138460
.
We can prove that for n>1, a(n) is the remainder of the Euclidean division of Sum_{k=0..p-1} k^p by p^3 where p = prime(n). - Pierre Vandaële, Nov 30 2024

Links

Programs

  • Magma
    [(p^3-p^2)/2: p in PrimesUpTo(1000)]; // Vincenzo Librandi, Jun 17 2011
  • Mathematica
    a = {}; Do[p = Prime[n]; AppendTo[a, (p^3 - p^2)/2], {n, 1, 50}]; a
(#^3-#^2)/2&/@Prime[Range[50]] (* Harvey P. Dale, Nov 01 2020 *)
  • PARI
    forprime(p=2,1e3,print1((p^3-p^2)/2", ")) \\ Charles R Greathouse IV, Jun 16 2011

Extensions

Definition corrected by T. D. Noe, Aug 25 2008

A138442 a(n) = ((n-th prime)^6-(n-th prime^2))/3.

Original entry on oeis.org

20, 240, 5200, 39200, 590480, 1608880, 8045760, 15681840, 49345120, 198274160, 295834240, 855241680, 1583367520, 2107120400, 3593071040, 7388119440, 14060176720, 17173456880, 30152792560, 42700092960, 50444740320
Offset: 1

Views

Author

Artur Jasinski, Mar 19 2008

Keywords

Programs

  • Mathematica
    a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^2)/3], {n, 1, 50}]; a
(#^6-#^2)/3&/@Prime[Range[30]] (* Harvey P. Dale, Oct 20 2024 *)
  • PARI
    forprime(p=2,1e3,print1((p^6-p^2)/3", ")) \\ Charles R Greathouse IV, Jul 15 2011

Formula

a(n) = A138409(n)/3. - R. J. Mathar, Oct 15 2017

A138443 a(n) = ((n-th prime)^6-(n-th prime^2))/4.

Original entry on oeis.org

15, 180, 3900, 29400, 442860, 1206660, 6034320, 11761380, 37008840, 148705620, 221875680, 641431260, 1187525640, 1580340300, 2694803280, 5541089580, 10545132540, 12880092660, 22614594420, 32025069720, 37833555240
Offset: 1

Views

Author

Artur Jasinski, Mar 19 2008

Keywords

Programs

  • Mathematica
    a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^2)/4], {n, 1, 50}]; a
  • PARI
    forprime(p=2,1e3,print1((p^6-p^2)/4", ")) \\ Charles R Greathouse IV, Jul 15 2011

Formula

a(n) = A138409(n)/4. - R. J. Mathar, Oct 15 2017

A138444 a(n) = ((n-th prime)^6-(n-th prime^2))/5.

Original entry on oeis.org

12, 144, 3120, 23520, 354288, 965328, 4827456, 9409104, 29607072, 118964496, 177500544, 513145008, 950020512, 1264272240, 2155842624, 4432871664, 8436106032, 10304074128, 18091675536, 25620055776, 30266844192, 48617489856
Offset: 1

Views

Author

Artur Jasinski, Mar 19 2008

Keywords

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

A138445 a(n) = ((n-th prime)^6-(n-th prime^2))/6.

Original entry on oeis.org

10, 120, 2600, 19600, 295240, 804440, 4022880, 7840920, 24672560, 99137080, 147917120, 427620840, 791683760, 1053560200, 1796535520, 3694059720, 7030088360, 8586728440, 15076396280, 21350046480, 25222370160, 40514574880
Offset: 1

Views

Author

Artur Jasinski, Mar 19 2008

Keywords

Programs

  • Mathematica
    a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^2)/6], {n, 1, 50}]; a
  • PARI
    forprime(p=2,1e3,print1((p^6-p^2)/6", ")) \\ Charles R Greathouse IV, Jul 15 2011

Formula

a(n) = A138409(n)/6. - R. J. Mathar, Oct 15 2017

A138459 a(n) = ((n-th prime)^6-(n-th prime)^4)/12.

Original entry on oeis.org

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

Views

Author

Artur Jasinski, Mar 22 2008

Keywords

Comments

Differences (p^k-p^m)/q such that k > m:
p^2-p is given in A036689
(p^2-p)/2 is given in A008837
p^3-p is given in A127917
(p^3-p)/2 is given in A127918
(p^3-p)/3 is given in A127919
(p^3-p)/6 is given in A127920
p^3-p^2 is given in A135177
(p^3-p^2)/2 is given in A138416
p^4-p is given in A138401
(p^4-p)/2 is given in A138417
p^4-p^2 is given in A138402
(p^4-p^2)/2 is given in A138418
(p^4-p^2)/3 is given in A138419
(p^4-p^2)/4 is given in A138420
(p^4-p^2)/6 is given in A138421
(p^4-p^2)/12 is given in A138422
p^4-p^3 is given in A138403
(p^4-p^3)/2 is given in A138423
p^5-p is given in A138404
(p^5-p)/2 is given in A138424
(p^5-p)/3 is given in A138425
(p^5-p)/5 is given in A138426
(p^5-p)/6 is given in A138427
(p^5-p)/10 is given in A138428
(p^5-p)/15 is given in A138429
(p^5-p)/30 is given in A138430
p^5-p^2 is given in A138405
(p^5-p^2)/2 is given in A138431
p^5-p^3 is given in A138406
(p^5-p^3)/2 is given in A138432
(p^5-p^3)/3 is given in A138433
(p^5-p^3)/4 is given in A138434
(p^5-p^3)/6 is given in A138435
(p^5-p^3)/8 is given in A138436
(p^5-p^3)/12 is given in A138437
(p^5-p^3)/24 is given in A138438
p^5-p^4 is given in A138407
(p^5-p^4)/2 is given in A138439
p^6-p is given in A138408
(p^6-p)/2 is given in A138440
p^6-p^2 is given in A138409
(p^6-p^2)/2 is given in A138441
(p^6-p^2)/3 is given in A138442
(p^6-p^2)/4 is given in A138443
(p^6-p^2)/5 is given in A138444
(p^6-p^2)/6 is given in A138445
(p^6-p^2)/10 is given in A138446
(p^6-p^2)/12 is given in A138447
(p^6-p^2)/15 is given in A138448
(p^6-p^2)/20 is given in A122220
(p^6-p^2)/30 is given in A138450
(p^6-p^2)/60 is given in A138451
p^6-p^3 is given in A138410
(p^6-p^3)/2 is given in A138452
p^6-p^4 is given in A138411
(p^6-p^4)/2 is given in A138453
(p^6-p^4)/3 is given in A138454
(p^6-p^4)/4 is given in A138455
(p^6-p^4)/6 is given in A138456
(p^6-p^4)/8 is given in A138457
(p^6-p^4)/12 is given in A138458
(p^6-p^4)/24 is given in A138459
p^6-p^5 is given in A138412
(p^6-p^5)/2 is given in A138460

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
Showing 1-7 of 7 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.