A227181 - OEIS

%I #16 Apr 03 2021 12:43:23

%S 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,

%T 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,6,7,8,9,10,11,12,13,

%U 14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36

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

%H Antti Karttunen, <a href="/A227181/b227181.txt">Rows 0..31, flattened</a>

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

%e Row n is A002061(n) terms long, and contains successive integers from n to n*n:

%e 0;

%e 1;

%e 2, 3, 4;

%e 3, 4, 5, 6, 7, 8, 9;

%e 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16;

%e ...

%t Flatten[(#+Range[(#1-2) (#1-1)+1]-2&)[Range[7]]] (* _Peter J. C. Moses_, Jul 11 2013 *)

%t Table[Range[n,n^2],{n,0,6}]//Flatten (* _Harvey P. Dale_, Apr 03 2021 *)

%o (Scheme): (define (A227181 n) (+ (A227177 n) (A227179 n)))

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

%K nonn,tabf

%O 0,3

%A _Antti Karttunen_, Jul 03 2013