A227179 -id:A227179 - cp's OEIS frontend

A227177 n occurs n^2 - n + 1 times.

0, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7

Offset: 0

Antti Karttunen, Jul 03 2013

nonn

a(n) is the least integer k such that A006527(k) >= n, which implies that each n occurs A002061(n) times.

Antti Karttunen, Table of n, a(n) for n = 0..9951

Cf. A000196, A002061, A006527, A227179, A227181, A227147.

Flatten[Map[ConstantArray[#,(#-2) (#-1)+1]-1&,Range[7]]] (* Peter J. C. Moses, Jul 14 2013 *)
Flatten[Table[#,{#^2-#+1}]&/@Range[0,7]] (* Harvey P. Dale, Sep 25 2013 *)

vec(N)=concat(vector(N, i, vector(i^2-i+1, j, i))) \\ Jinyuan Wang, Dec 01 2018

from sympy import integer_nthroot
def A227177(n): return (m:=integer_nthroot(k:=3*n,3)[0])+(k>m*(m**2+2)) # Chai Wah Wu, Nov 07 2024

a(k + (j^3-j^2+5*j)/3) = j for all j>=0, k=0..(j^2-j). - Jinyuan Wang, Nov 24 2018

a(n) = m+1 if 3n>m*(m^2+2) and a(n) = m otherwise where m=floor((3n)^(1/3)). - Chai Wah Wu, Nov 07 2024

A227452 Irregular table where each row lists the partitions occurring on the main trunk of the Bulgarian Solitaire game tree (from the top to the root) for deck of n(n+1)/2 cards. Nonordered partitions are encoded in the runlengths of binary expansion of each term, in the manner explained in A129594.

Original entry on oeis.org

0, 1, 5, 7, 6, 18, 61, 8, 11, 58, 28, 25, 77, 246, 66, 55, 36, 237, 226, 35, 46, 116, 197, 115, 102, 306, 985, 265, 445, 200, 155, 946, 905, 285, 220, 145, 475, 786, 925, 140, 185, 465, 395, 826, 460, 409, 1229, 3942, 1062, 1782, 1602, 823, 612, 3789, 3622, 1142

Offset: 0

Antti Karttunen, Jul 12 2013

The terms for row n are computed as A227451(n), A226062(A227451(n)), A226062(A226062(A227451(n))), etc. until a term that is a fixed point of A226062 is reached (A037481(n)), which will be the last term of row n.

Row n has A002061(n) = 1,1,3,7,13,21,... terms.

			Rows 0 - 5 of the table are:
0
1
5, 7, 6
18, 61, 8, 11, 58, 28, 25
77, 246, 66, 55, 36, 237, 226, 35, 46, 116, 197, 115, 102
306, 985, 265, 445, 200, 155, 946, 905, 285, 220, 145, 475, 786, 925, 140, 185, 465, 395, 826, 460, 409

Martin Gardner, Colossal Book of Mathematics, Chapter 34, Bulgarian Solitaire and Other Seemingly Endless Tasks, pp. 455-467, W. W. Norton & Company, 2001.

Antti Karttunen, Rows 0-31 of table, flattened

Left edge A227451. Right edge: A037481. Cf. A227147 (can be computed from this sequence).

;; with Antti Karttunen's IntSeq-library for memoizing definec-macro
;; Compare with the other definition for A218616:
(definec (A227452 n) (cond ((< n 2) n) ((A226062 (A227452 (- n 1))) => (lambda (next) (if (= next (A227452 (- n 1))) (A227451 (A227177 (+ 1 n))) next)))))
;; Alternative implementation using nested cached closures for function iteration:
(define (A227452 n) ((compose-A226062-to-n-th-power (A227179 n)) (A227451 (A227177 n))))
(definec (compose-A226062-to-n-th-power n) (cond ((zero? n) (lambda (x) x)) (else (lambda (x) (A226062 ((compose-A226062-to-n-th-power (- n 1)) x))))))

For n < 2, a(n) = n, and for n>=2, if A226062(a(n-1)) = a(n-1) [in other words, when a(n-1) is one of the terms of A037481] then a(n) = A227451(A227177(n+1)), otherwise a(n) = A226062(a(n-1)).

Alternatively, a(n) = value of the A227179(n)-th iteration of the function A226062, starting from the initial value A227451(A227177(n)). [See the other Scheme-definition in the Program section]

A227181 Irregular table: integers from n to n^2 followed by integers from (n+1) to (n+1)^2.

Original entry on oeis.org

0, 1, 2, 3, 4, 3, 4, 5, 6, 7, 8, 9, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36

Offset: 0

Antti Karttunen, Jul 03 2013

			Row n is A002061(n) terms long, and contains successive integers from n to n*n:
  0;
  1;
  2, 3, 4;
  3, 4, 5, 6, 7, 8, 9;
  4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16;
  ...

Antti Karttunen, Rows 0..31, flattened

Right edge: A000290. Central diagonal: A000217. Cf. also A227147.

Flatten[(#+Range[(#1-2) (#1-1)+1]-2&)[Range[7]]] (* Peter J. C. Moses, Jul 11 2013 *)
Table[Range[n,n^2],{n,0,6}]//Flatten (* Harvey P. Dale, Apr 03 2021 *)

from sympy import integer_nthroot
def A227181(n): return n-(r:=(m:=integer_nthroot(k:=3*n,3)[0])-(k<=m*(m**2+2)))*(r**2-1)//3 # Chai Wah Wu, Nov 07 2024

(define (A227181 n) (+ (A227177 n) (A227179 n)))

a(n) = A227177(n)+ A227179(n). [As a sequence].

A227182 Simple self-inverse permutation of natural numbers: List each block of n^2 - n + 1 numbers from ((n-1)^3 + 2(n-1))/3 + 1 to (n^3 + 2n)/3 in reverse order.

Original entry on oeis.org

0, 1, 4, 3, 2, 11, 10, 9, 8, 7, 6, 5, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46

Offset: 0

Antti Karttunen, Jul 04 2013

nonn

In other words, after zero, list each block of A002061(n) numbers from A116731(n) to A006527(n) in reverse order.

Antti Karttunen, Table of n, a(n) for n = 0..9951
Index entries for sequences that are permutations of the natural numbers

Cf. A227177, A227179, A227147.

Flatten[(Reverse/@( (-1+#) (9-5 #+#^2)/3+Range[(#-2) (#-1)+1]-1)&)[Range[7]]] (* Peter J. C. Moses, Jul 11 2013 *)

(define (A227182 n) (- (A006527 (A227177 n)) (A227179 n)))

a(n) = A006527(A227177(n)) - A227179(n).

cp's OEIS Frontend

A227177 n occurs n^2 - n + 1 times.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Scheme

Formula

A227181 Irregular table: integers from n to n^2 followed by integers from (n+1) to (n+1)^2.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Python

Scheme

Formula

A227182 Simple self-inverse permutation of natural numbers: List each block of n^2 - n + 1 numbers from ((n-1)^3 + 2*(n-1))/3 + 1 to (n^3 + 2*n)/3 in reverse order.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Scheme

Formula

A227182 Simple self-inverse permutation of natural numbers: List each block of n^2 - n + 1 numbers from ((n-1)^3 + 2(n-1))/3 + 1 to (n^3 + 2n)/3 in reverse order.