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-3 of 3 results.

A165719 Integers of the form k*(k+9)/8.

Original entry on oeis.org

14, 17, 45, 50, 92, 99, 155, 164, 234, 245, 329, 342, 440, 455, 567, 584, 710, 729, 869, 890, 1044, 1067, 1235, 1260, 1442, 1469, 1665, 1694, 1904, 1935, 2159, 2192, 2430, 2465, 2717, 2754, 3020, 3059, 3339, 3380, 3674, 3717, 4025, 4070, 4392, 4439, 4775
Offset: 1

Views

Author

Vladimir Joseph Stephan Orlovsky, Sep 24 2009

Keywords

Comments

Only one term is a prime number (17). Are all others composite?
There is no prime other than 17 in the first 1 million terms. - Harvey P. Dale, Jan 07 2020
Integers of the form k+k*(k+1)/8 = k+A000217(k)/4; for k see A047521, for A000217(k)/4 see A154260.

Examples

			for k = 1,2,..., k(k+9)/8 is 5/4, 11/4, 9/2, 13/2, 35/4, 45/4, 14, 17,.. and the integer values out of these become the sequence.

Links

Crossrefs

Cf. A000217, A047521, A154260, A165717, A165718.

Programs

  • Mathematica
    q=4;s=0;lst={};Do[s+=((n+q)/q);If[IntegerQ[s],AppendTo[lst,s]],{n,6!}];lst
Select[Table[(n(n+9))/8,{n,200}],IntegerQ] (* or *) Rest[Flatten[Table[ {9n+8n^2,14+23n+8n^2},{n,0,30}]]] (* or *) LinearRecurrence[{1,2,-2,-1,1},{14,17,45,50,92},60] (* Harvey P. Dale, Jan 07 2020 *)

Formula

From R. J. Mathar, Sep 25 2009: (Start)
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5).
a(n) = 2*n^2 + 6*n + 9/4 - 3*(-1)^n*(2*n+3)/4.
G.f.: x*(-14-3*x+x^3)/((1+x)^2 * (x-1)^3 ). (End)
Sum_{n>=1} 1/a(n) = 89/81 - (sqrt(2)+1)*Pi/9. - Amiram Eldar, Jul 26 2024

Extensions

Definition simplified by R. J. Mathar, Sep 25 2009

A165720 Integers of the form k*(k+11)/10.

Original entry on oeis.org

6, 8, 18, 21, 35, 39, 57, 62, 84, 90, 116, 123, 153, 161, 195, 204, 242, 252, 294, 305, 351, 363, 413, 426, 480, 494, 552, 567, 629, 645, 711, 728, 798, 816, 890, 909, 987, 1007, 1089, 1110, 1196, 1218, 1308, 1331, 1425, 1449, 1547, 1572, 1674, 1700, 1806
Offset: 1

Views

Author

Vladimir Joseph Stephan Orlovsky, Sep 24 2009

Keywords

Comments

Integers of the form k + k*(k+1)/10 = k + A000217(k)/5. For k see A047208, for A000217(k)/5 see A057569. - R. J. Mathar, Sep 25 2009
Are all terms composite numbers?
Yes. They are alternately of the form (h+2)*(5*h-1)/2 and h*(5*h+11)/2, with h>0. - Bruno Berselli, Dec 22 2016

Links

Crossrefs

Cf. A000217, A047208, A057569, A165717, A165718, A165719, A279895.

Programs

  • Mathematica
    Select[k = Range[0, 130]; k (k + 11)/10, IntegerQ] (* Bruno Berselli, Dec 22 2016 *)

Formula

From R. J. Mathar, Sep 25 2009: (Start)
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5).
a(n) = 5*(2*n^2 + 10*n + 3)/16 - 3*(-1)^n*(5 + 2*n)/16.
G.f.: x*(-6 - 2*x + 2*x^2 + x^3) / ((1 + x)^2*(x - 1)^3). (End)
Sum_{n>=1} 1/a(n) = 514/363 - 2*Pi*sqrt(1+2/sqrt(5))/11. - Amiram Eldar, Jul 26 2024

Extensions

Definition simplified by R. J. Mathar, Sep 25 2009
Corrected A-number in my comment - R. J. Mathar, Oct 30 2009

A165721 Integers of the form k*(k+13)/12.

Original entry on oeis.org

4, 14, 22, 25, 35, 55, 69, 74, 90, 120, 140, 147, 169, 209, 235, 244, 272, 322, 354, 365, 399, 459, 497, 510, 550, 620, 664, 679, 725, 805, 855, 872, 924, 1014, 1070, 1089, 1147, 1247, 1309, 1330, 1394, 1504, 1572, 1595, 1665, 1785, 1859, 1884, 1960, 2090
Offset: 1

Views

Author

Vladimir Joseph Stephan Orlovsky, Sep 24 2009

Keywords

Comments

Integers of the form k+k*(k+1)/12 = k+A000217(k)/6 (see A069497). - R. J. Mathar, Sep 25 2009
Are all terms composite numbers?
Contribution from Zak Seidov, Sep 25 2009: (Start)
Integers of form n(13+n)/12, n=0,1,2,...
Each four terms of the sequence are composite numbers of forms:
{(4+3 m) (1+4 m), (2+3 m) (7+4 m), (2+m) (11+12 m), m (13+12 m)}, m=0,1,2,...
m=0: {4,14,22,25}; m=1: {35,55,69,74}; m=2: {90,120,140,147}, etc. (End)

Links

Crossrefs

Cf. A000217, A069497, A165717, A165718, A165719, A165720.

Programs

  • Mathematica
    q=6;s=0;lst={};Do[s+=((n+q)/q);If[IntegerQ[s],AppendTo[lst,s]],{n,6!}];lst
Select[Table[k (k+13)/12,{k,200}],IntegerQ] (* or *) LinearRecurrence[ {3,-5,7,-7,5,-3,1},{4,14,22,25,35,55,69},50] (* Harvey P. Dale, Jan 30 2013 *)

Formula

From R. J. Mathar, Sep 25 2009: (Start)
a(n) = 3*a(n-1) - 5*a(n-2) + 7*a(n-3) - 7*a(n-4) + 5*a(n-5) - 3*a(n-6) + a(n-7).
G.f.: x*(-4-2*x-x^3+x^5)/((x^2+1)^2*(x-1)^3). (End)
Sum_{n>=1} 1/a(n) = 712/507 - (3 + 4*sqrt(3))*Pi/39. - Amiram Eldar, Jul 26 2024

Extensions

Definition simplified by R. J. Mathar, Sep 25 2009
Showing 1-3 of 3 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.