A246279 - OEIS

%I #4 Sep 11 2014 18:56:04

%S 2,3,4,5,9,6,7,25,15,8,11,49,35,27,10,13,121,77,125,21,12,17,169,143,

%T 343,55,45,14,19,289,221,1331,91,175,33,16,23,361,323,2197,187,539,65,

%U 81,18,29,529,437,4913,247,1573,119,625,75,20,31,841,667,6859,391,2873,209,2401,245,63,22

%N Transpose of array A246278: A(row,1) = 2*row, and for col > 1, A(row,col) = A003961(A(row,col-1)).

%C Permutation of natural numbers larger than 1.

%C See comments in A246278 (the same array transposed).

%F If col = 1, A(row,col) = 2*row, otherwise A(row,col) = A003961(A(row,col-1)).

%e The top-left corner of the array:

%e    2,     3,     5,     7,    11,    13,    17,    19,    23, ...

%e    4,     9,    25,    49,   121,   169,   289,   361,   529, ...

%e    6,    15,    35,    77,   143,   221,   323,   437,   667, ...

%e    8,    27,   125,   343,  1331,  2197,  4913,  6859, 12167, ...

%e   10,    21,    55,    91,   187,   247,   391,   551,   713, ...

%e   12,    45,   175,   539,  1573,  2873,  5491,  8303, 15341, ......

%o (Scheme)

%o (define (A246279 n) (A246278bi (A004736 n) (A002260 n)))

%o (define (A246278bi row col) (if (= 1 row) (* 2 col) (A003961 (A246278bi (- row 1) col))))

%Y Transpose of A246278.

%Y One more than A246273.

%Y Cf. A003961, A083140.

%K nonn,tabl

%O 1,1

%A _Antti Karttunen_, Aug 21 2014