A100795 -id:A100795 - cp's OEIS frontend

A074148 a(n) = n + floor(n^2/2).

1, 4, 7, 12, 17, 24, 31, 40, 49, 60, 71, 84, 97, 112, 127, 144, 161, 180, 199, 220, 241, 264, 287, 312, 337, 364, 391, 420, 449, 480, 511, 544, 577, 612, 647, 684, 721, 760, 799, 840, 881, 924, 967, 1012, 1057, 1104, 1151, 1200, 1249, 1300, 1351, 1404, 1457

Offset: 1

Amarnath Murthy, Aug 28 2002

Last term in each group in A074147.
Index of the last occurrence of n in A100795.
Equals row sums of an infinite lower triangular matrix with alternate columns of (1, 3, 5, 7, ...) and (1, 1, 1, ...). - Gary W. Adamson, May 16 2010
a(n) = A214075(n+2,2). - Reinhard Zumkeller, Jul 03 2012
The heart pattern appears in (n+1) X (n+1) coins. Abnormal orientation heart is A065423. Normal heart is A093005 (A074148 - A065423). Void is A007590. See illustration in links. - Kival Ngaokrajang, Sep 11 2013
a(n+1) is the smallest size of an n-prolific permutation; a permutation of s letters is n-prolific if each (s - n)-subset of the letters in its one-line notation forms a unique pattern. - David Bevan, Nov 30 2016
For n > 2, a(n-1) is the smallest size of a nontrivial permuted packing of diamond tiles with diagonal length n; a permuted packing is a translational packing for which the set of translations is the plot of a permutation. - David Bevan, Nov 30 2016
Also the length of a longest path in the (n+1) X (n+1) bishop and black bishop graphs. - Eric W. Weisstein, Mar 27 2018
Row sums of A143182 triangle - Nikita Sadkov, Oct 10 2018

			Equals row sums of the generating triangle:
   1;
   3,  1;
   5,  1,  1;
   7,  1,  3,  1;
   9,  1,  5,  1,  1;
  11,  1,  7,  1,  3,  1;
  13,  1,  9,  1,  5,  1,  1;
  15,  1, 11,  1,  7,  1,  3,  1;
  ...
Example: a(5) = 17 = (9 + 1 + 5 + 1 + 1). - _Gary W. Adamson_, May 16 2010
The smallest 1-prolific permutations are 3142 and its symmetries; a(2) = 4. The smallest 2-prolific permutations are 3614725 and its symmetries; a(3) = 7. - _David Bevan_, Nov 30 2016

Vincenzo Librandi, Table of n, a(n) for n = 1..2000
D. Bevan, C. Homberger, and B. E. Tenner, Prolific permutations and permuted packings: downsets containing many large patterns, arXiv preprint arXiv:1608.06931 [math.CO], 2016.
Peter M. Chema, Illustration of initial terms, n > 1.
A. Edelman and M. La Croix, The Singular Values of the GUE (Less is More), arXiv preprint arXiv:1410.7065 [math.PR], 2014-2015. See Section 7.
Kival Ngaokrajang, Illustration of initial terms.
Eric Weisstein's World of Mathematics, Bishop Graph.
Eric Weisstein's World of Mathematics, Black Bishop Graph.
Eric Weisstein's World of Mathematics, Longest Path Problem.
Wikipedia, Cartan decomposition.
Index entries for linear recurrences with constant coefficients, signature (2,0,-2,1).

Cf. A074147, A074149, A100795, A061925.
a(n) = A000982(n+1) - 1.
Antidiagonal sums of A237447 & A237448.

List([1..60],n->n+Int(n^2/2)); # Muniru A Asiru, Jan 04 2019

[(2*n^2+4*n+(-1)^n-1)/4: n in [1..60]]; // Vincenzo Librandi, Jun 16 2011

seq(floor(n^4/(2*n^2+1)),n=2..25); # Gary Detlefs, Feb 11 2010

f[x_, y_] := Floor[Abs[y/x - x/y]]; Table[Floor[f[1, n^2 + 2 n + 1]/2], {n, 60}] (* Robert G. Wilson v, Aug 11 2010 *)
Table[n + Floor[n^2/2], {n, 20}] (* Eric W. Weisstein, Mar 27 2018 *)
Table[((-1)^n + 2 n (n + 2) - 1)/4, {n, 10}] (* Eric W. Weisstein, Mar 27 2018 *)
LinearRecurrence[{2, 0, -2, 1}, {1, 4, 7, 12}, 20] (* Eric W. Weisstein, Mar 27 2018 *)
CoefficientList[Series[(-1 - 2 x + x^2)/((-1 + x)^3 (1 + x)), {x, 0, 20}], x] (* Eric W. Weisstein, Mar 27 2018 *)

a(n)=(2*n^2+4*n-1)\/4 \\ Charles R Greathouse IV, Apr 17 2012

def A074148(n): return n + n**2//2 # Chai Wah Wu, Jun 07 2022

a(n) = (2*n^2 + 4*n + (-1)^n - 1)/4. - Vladeta Jovovic, Apr 06 2003
a(n) = A109225(n,2) for n > 1. - Reinhard Zumkeller, Jun 23 2005
a(n) = +2*a(n-1) - 2*a(n-3) + 1*a(n-4). - Joerg Arndt, Apr 02 2011
a(n) = a(n-2) + 2*n, a(0) = 0, a(1) = 1. - Paul Barry, Jul 17 2004
From R. J. Mathar, Aug 30 2008: (Start)
G.f.: x*(1 + 2*x - x^2)/((1 - x)^3*(1 + x)).
a(n) + a(n+1) = A028387(n).
a(n+1) - a(n) = A109613(n+1). (End)
a(n) = floor(n^4/(2n^2 + 1)) with offset 2..a(2) = 1. - Gary Detlefs, Feb 11 2010
a(n) = n + floor(n^2/2). - Wesley Ivan Hurt, Jun 14 2013
From Franck Maminirina Ramaharo, Jan 04 2019: (Start)
a(n) = n*(n + 1)/2 + floor(n/2) = A000217(n) + A004526(n).
E.g.f.: (exp(-x) - (1 - 6*x - 2*x^2)*exp(x))/4. (End)
Sum_{n>=1} 1/a(n) = 1 - cot(Pi/sqrt(2))*Pi/(2*sqrt(2)). - Amiram Eldar, Sep 16 2022

More terms from Vladeta Jovovic, Apr 06 2003
Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, May 31 2007
Further edited by N. J. A. Sloane, Sep 06 2008 at the suggestion of R. J. Mathar
Description simplified by Eric W. Weisstein, Mar 27 2018

A061925 a(n) = ceiling(n^2/2) + 1.

Original entry on oeis.org

1, 2, 3, 6, 9, 14, 19, 26, 33, 42, 51, 62, 73, 86, 99, 114, 129, 146, 163, 182, 201, 222, 243, 266, 289, 314, 339, 366, 393, 422, 451, 482, 513, 546, 579, 614, 649, 686, 723, 762, 801, 842, 883, 926, 969, 1014, 1059, 1106, 1153, 1202, 1251, 1302, 1353, 1406

Offset: 0

Henry Bottomley, May 17 2001

a(n+1) gives index of the first occurrence of n in A100795. - Amarnath Murthy, Dec 05 2004
First term in each group in A074148. - Amarnath Murthy, Aug 28 2002
From Christian Barrientos, Jan 01 2021: (Start)
For n >= 3, a(n) is the number of square polyominoes with at least 2n - 2 cells whose bounding box has size 2 X n.
For n = 3, there are 6 square polyominoes with a bounding box of size 2 X 3:
      _       _       _       _       _      
   |||_|   |||_|   |||_|   |||_|   |||_|   |||_
   |||_|   |||     || ||       ||     ||       |||
(End)
Except for a(2), a(n) agrees with the lower matching number of the (n+1) X (n+1) bishop graph up to at least n = 13. - Eric W. Weisstein, Dec 23 2024

Harry J. Smith, Table of n, a(n) for n = 0..1000
Kassie Archer, Ethan Borsh, Jensen Bridges, Christina Graves, and Millie Jeske, Cyclic permutations avoiding patterns in both one-line and cycle forms, arXiv:2312.05145 [math.CO], 2023. See p. 2.
Eric Weisstein's World of Mathematics, Bishop Graph.
Eric Weisstein's World of Mathematics, Lower Matching Number.
Index entries for linear recurrences with constant coefficients, signature (2,0,-2,1).

Cf. A100795, A074147-A074149.

seq(floor((n^2+3)/2),n=0..25); # Gary Detlefs, Feb 13 2010

Table[Ceiling[n^2/2]+1,{n,0,60}] (* Vladimir Joseph Stephan Orlovsky, Apr 02 2011 *)
LinearRecurrence[{2,0,-2,1},{1,2,3,6},60] (* Harvey P. Dale, Jan 03 2024 *)

a(n) = { ceil(n^2/2) + 1 } \\ Harry J. Smith, Jul 29 2009

a(n) = a(n-1) + 2*floor((n-1)/2) + 1 = A061926(3, k) = 2*A002620(n+1) - (n-1) = A000982(n) + 1.
a(2*n) = a(2*n-1) + 2*n - 1 = 2*n^2 + 1 = A058331(n).
a(2*n+1) = a(2*n) + 2*n + 1 = 2*(n^2 + n + 1) = A051890(n+1).
a(n) = floor((n^2+3)/2). - Gary Detlefs, Feb 13 2010
From R. J. Mathar, Feb 19 2010: (Start)
a(n) = 2*a(n-1) - 2*a(n-3) + a(n-4).
G.f.: (1-x^2+2*x^3)/((1+x) * (1-x)^3). (End)
a(n) = (2*n^2 - (-1)^n + 5)/4. - Bruno Berselli, Sep 29 2011
a(n) = A007590(n+1) - n + 1. - Wesley Ivan Hurt, Jul 15 2013
a(n) + a(n+1) = A027688(n). a(n+1) - a(n) = A109613(n). - R. J. Mathar, Jul 20 2013
E.g.f.: ((2 + x + x^2)*cosh(x) + (3 + x + x^2)*sinh(x))/2. - Stefano Spezia, May 07 2021

Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, Jun 09 2007

A100798 n occurs n times, as early as possible subject to the constraint that two successive occurrences of n are separated by at least by n terms.

Original entry on oeis.org

1, 2, 3, 4, 2, 5, 3, 6, 4, 7, 3, 5, 8, 4, 6, 9, 10, 5, 4, 7, 11, 6, 8, 5, 12, 9, 13, 7, 6, 5, 10, 8, 11, 14, 15, 6, 7, 9, 12, 16, 8, 10, 6, 13, 7, 11, 17, 9, 14, 8, 15, 12, 7, 10, 18, 19, 16, 9, 8, 11, 7, 13, 20, 14, 10, 12, 15, 8, 9, 17, 21, 11, 22, 16, 18, 10, 8, 13, 9, 12, 14, 19, 15, 11

Offset: 1

Amarnath Murthy, Dec 05 2004

Subsidiary sequences: first (A100919) and the last (A100920) occurrences of n.

			Index of the first occurrence of 2 is 2 and that of the second occurrence is 5, separated by a(3) and a(4), two terms.

Ivan Neretin, Table of n, a(n) for n = 1..10000

Cf. A061925, A074148, A100795.

mx = 22; lst = cnt = ConstantArray[0, mx + 1]; a = {}; Do[k = Min@Select[Range[mx + 1], lst[[#]] <= n && cnt[[#]] < # &]; AppendTo[a, k]; lst[[k]] = n + k + 1; cnt[[k]]++; If[k > mx, Break[]], {n, mx^2}]; a (* Ivan Neretin, Nov 25 2016 *)

Extended by Ray Chandler, Dec 08 2004

A336215 Lexicographically earliest sequence of positive integers such that for any k > 0, there are k occurrences of k in the sequence, and the distance between any two occurrences of k is a multiple of k.

Original entry on oeis.org

1, 2, 3, 2, 4, 3, 5, 6, 3, 7, 8, 5, 4, 6, 9, 10, 4, 11, 8, 6, 4, 5, 12, 7, 13, 6, 5, 14, 11, 15, 7, 5, 9, 16, 8, 10, 17, 6, 18, 11, 19, 9, 8, 6, 7, 10, 12, 20, 21, 16, 8, 7, 22, 17, 23, 10, 18, 24, 7, 9, 25, 11, 26, 13, 27, 7, 8, 20, 9, 14, 12, 28, 11, 29, 8

Offset: 1

Rémy Sigrist, Jul 12 2020

This sequence has similarities with A100795.

			For k = 1:
- we can set a(1) = 1,
For k = 2:
- we can set a(2) = a(4) = 2,
For k = 3:
- we can set a(3) = a(6) = a(9) = 3.
For k = 4:
- we can set a(5) = 4,
- however a(9) is already set to 3,
- so we continue with a(13) = a(17) = a(21) = 4.

Rémy Sigrist, Table of n, a(n) for n = 1..10000

Cf. A100795.

{ v=1; for (n=1, #a=vector(75), if (!a[n], r=v; forstep (m=n, #a, v, if (!a[m], a[m]=v; if (!r--, break))); v++;); print1 (a[n]", ")) }

cp's OEIS Frontend

A074148 a(n) = n + floor(n^2/2).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

GAP

Magma

Maple

Mathematica

PARI

Python

Formula

Extensions

A061925 a(n) = ceiling(n^2/2) + 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A100798 n occurs n times, as early as possible subject to the constraint that two successive occurrences of n are separated by at least by n terms.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A336215 Lexicographically earliest sequence of positive integers such that for any k > 0, there are k occurrences of k in the sequence, and the distance between any two occurrences of k is a multiple of k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI