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.

Previous Showing 11-14 of 14 results.

A064763 a(n) = 28*n^2.

Original entry on oeis.org

0, 28, 112, 252, 448, 700, 1008, 1372, 1792, 2268, 2800, 3388, 4032, 4732, 5488, 6300, 7168, 8092, 9072, 10108, 11200, 12348, 13552, 14812, 16128, 17500, 18928, 20412, 21952, 23548, 25200, 26908, 28672, 30492, 32368, 34300, 36288, 38332
Offset: 0

Views

Author

Roberto E. Martinez II, Oct 18 2001

Keywords

Comments

Number of edges in a complete 8-partite graph of order 8n, K_n,n,n,n,n,n,n,n.
Sequence found by reading the line from 0, in the direction 0, 28, ..., in the square spiral whose vertices are the generalized 16-gonal numbers. - Omar E. Pol, Jul 03 2014

Crossrefs

Similar sequences are listed in A244630.

Programs

Formula

a(n) = 56*n + a(n-1) - 28 (with a(0)=0). - Vincenzo Librandi, Aug 07 2010
a(n) = 28*A000290(n) = 14*A001105(n) = 7*A016742(n) = 4*A033582(n) = 2*A144555(n). - Omar E. Pol, Jul 03 2014
From Vincenzo Librandi, Mar 30 2015: (Start)
G.f.: 28*x*(1+x)/(1-x)^3.
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3). (End)
a(n) = t(8*n) - 8*t(n), where t(i) = i*(i+k)/2 for any k. Special case (k=1): a(n) = A000217(8*n) - 8*A000217(n). - Bruno Berselli, Aug 31 2017
From Elmo R. Oliveira, Dec 01 2024: (Start)
E.g.f.: 28*x*(1 + x)*exp(x).
a(n) = n*A135628(n). (End)

A321180 a(n) = 17*n^2 - 1.

Original entry on oeis.org

-1, 16, 67, 152, 271, 424, 611, 832, 1087, 1376, 1699, 2056, 2447, 2872, 3331, 3824, 4351, 4912, 5507, 6136, 6799, 7496, 8227, 8992, 9791, 10624, 11491, 12392, 13327, 14296, 15299, 16336, 17407, 18512, 19651, 20824, 22031, 23272, 24547, 25856, 27199, 28576, 29987
Offset: 0

Views

Author

Paul Curtz, Oct 29 2018

Keywords

Comments

a(n) mod 9 = period 9: repeat [8, 7, 4, 8, 1, 1, 8, 4, 7] = A254375(n+5).
1020 = 2*2*15*17.

Crossrefs

Programs

  • Mathematica
    a[n_]:=17*n^2 - 1; Array[a, 50] (* or *)
    CoefficientList[Series[(1 - 19 x - 16 x^2)/(-1 + x)^3, {x, 0, 50}], x] (* Stefano Spezia, Oct 29 2018 *)
    LinearRecurrence[{3,-3,1},{-1,16,67},40] (* Harvey P. Dale, Jul 03 2021 *)
  • PARI
    a(n)=17*n^2-1 \\ Charles R Greathouse IV, Oct 30 2018
    
  • PARI
    Vec((1 - 19*x - 16*x^2)/(-1 + x)^3 + O(x^50)) \\ Colin Barker, Oct 31 2018

Formula

a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3).
a(n) = A244630(n) - 1.
a(n+1) = a(n) + 17*(2n+1).
a(n+10) = a(n) + 10*A061085(n+5).
a(n+15) = a(15-n) + 1020*n.
G.f.: (1 - 19*x - 16*x^2)/(-1 + x)^3. - Stefano Spezia, Oct 29 2018
E.g.f.: exp(x)*(17*x^2 + 17*x - 1). - Elmo R. Oliveira, Jan 16 2025

Extensions

One term corrected by Colin Barker, Oct 29 2018

A303302 a(n) = 34*n^2.

Original entry on oeis.org

0, 34, 136, 306, 544, 850, 1224, 1666, 2176, 2754, 3400, 4114, 4896, 5746, 6664, 7650, 8704, 9826, 11016, 12274, 13600, 14994, 16456, 17986, 19584, 21250, 22984, 24786, 26656, 28594, 30600, 32674, 34816, 37026, 39304, 41650, 44064, 46546, 49096, 51714, 54400, 57154, 59976, 62866, 65824, 68850, 71944
Offset: 0

Views

Author

Omar E. Pol, May 13 2018

Keywords

Comments

Sequence found by reading the line from 0, in the direction 0, 34, ..., in the square spiral whose vertices are the generalized 19-gonal numbers A303813.

Crossrefs

Cf. similar sequences of the type k*n^2: A000290 (k=1), A001105 (k=2), A033428 (k=3), A016742 (k=4), A033429 (k=5), A033581 (k=6), A033582 (k=7), A139098 (k=8), A016766 (k=9), A033583 (k=10), A033584 (k=11), A135453 (k=12), A152742 (k=13), A144555 (k=14), A064761 (k=15), A016802 (k=16), A244630 (k=17), A195321 (k=18), A244631 (k=19), A195322 (k=20), A064762 (k=21), A195323 (k=22), A244632 (k=23), A195824 (k=24), A016850 (k=25), A244633 (k=26), A244634 (k=27), A064763 (k=28), A244635 (k=29), A244636 (k=30), A244082 (k=32), this sequence (k=34), A016910 (k=36), A016982 (k=49), A017066 (k=64), A017162 (k=81), A017270 (k=100), A017390 (k=121), A017522 (k=144).

Programs

  • Magma
    [34*n^2: n in [0..50]]; // Vincenzo Librandi Jun 07 2018
  • Mathematica
    Table[34 n^2, {n, 0, 40}]
    LinearRecurrence[{3,-3,1},{0,34,136},50] (* Harvey P. Dale, Jul 23 2018 *)
  • PARI
    a(n) = 34*n^2;
    
  • PARI
    concat(0, Vec(34*x*(1 + x) / (1 - x)^3 + O(x^40))) \\ Colin Barker, Jun 12 2018
    

Formula

a(n) = 34*A000290(n) = 17*A001105(n) = 2*A244630(n).
G.f.: 34*x*(1 + x)/(1 - x)^3. - Vincenzo Librandi, Jun 07 2018
From Elmo R. Oliveira, Dec 02 2024: (Start)
E.g.f.: 34*x*(1 + x)*exp(x).
a(n) = A005843(n)*A008599(n).
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n > 2. (End)

A363436 Array read by ascending antidiagonals: A(n, k) = k*n^2, with k >= 0.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 0, 4, 2, 0, 0, 9, 8, 3, 0, 0, 16, 18, 12, 4, 0, 0, 25, 32, 27, 16, 5, 0, 0, 36, 50, 48, 36, 20, 6, 0, 0, 49, 72, 75, 64, 45, 24, 7, 0, 0, 64, 98, 108, 100, 80, 54, 28, 8, 0, 0, 81, 128, 147, 144, 125, 96, 63, 32, 9, 0, 0, 100, 162, 192, 196, 180, 150, 112, 72, 36, 10, 0
Offset: 0

Views

Author

Stefano Spezia, Jul 08 2023

Keywords

Examples

			The array begins:
  0,  0,  0,   0,   0,   0,   0, ...
  0,  1,  2,   3,   4,   5,   6, ...
  0,  4,  8,  12,  16,  20,  24, ...
  0,  9, 18,  27,  36,  45,  54, ...
  0, 16, 32,  48,  64,  80,  96, ...
  0, 25, 50,  75, 100, 125, 150, ...
  0, 36, 72, 108, 144, 180, 216, ...
  ...
		

Crossrefs

Cf. A000290 (k = 1), A001105 (k = 2), A033428 (k = 3), A016742 (k = 4), A033429 (k = 5), A033581 (k = 6), A033582 (k = 7), A139098 (k = 8), A016766 (k = 9), A033583 (k = 10), A033584 (k = 11), A135453 (k = 12), A152742 (k = 13), A144555 (k = 14), A064761 (k = 15), A016802 (k = 16), A244630 (k = 17), A195321 (k = 18), A244631 (k = 19), A195322 (k = 20), A064762 (k = 21), A195323 (k = 22), A244632 (k = 23), A195824 (k = 24), A016850 (k = 25), A244633 (k = 26), A244634 (k = 27), A064763 (k = 28), A244635 (k = 29), A244636 (k = 30).
Cf. A001477 (n = 1), A008586 (n = 2), A008591 (n = 3), A008598 (n = 4), A008607 (n = 5), A044102 (n = 6), A152691 (n = 8).
Cf. A000007 (n = 0 or k = 0), A000578 (main diagonal), A002415 (antidiagonal sums), A004247.

Programs

  • Mathematica
    A[n_,k_]:=k n^2; Table[A[n-k,k],{n,0,11},{k,0,n}]//Flatten

Formula

O.g.f.: x*y*(1 + x)/((1 - x)^3*(1 - y)^2).
E.g.f.: x*y*(1 + x)*exp(x + y).
A(n, k) = n*A004247(n, k).
Previous Showing 11-14 of 14 results.