%I #8 Feb 22 2015 23:29:40
%S 2,3,4,5,9,6,7,19,15,8,11,31,35,21,10,13,55,59,49,27,12,17,73,103,85,
%T 65,33,14,23,101,133,151,113,79,39,16,25,145,187,197,203,137,95,45,18,
%U 29,167,271,281,263,251,163,109,51,20,37,205,311,403,367,325,299,191,125,57,22,41,253,371,457,523,461,385,343,217,139,63,24
%N Transposed Ludic array.
%C See the comments in A255127.
%H Antti Karttunen, <a href="/A255129/b255129.txt">Table of n, a(n) for n = 2..10441; the first 144 antidiagonals of array, flattened</a>
%o (Scheme)
%o (define (A255129 n) (if (<= n 1) n (A255129bi (A002260 (- n 1)) (A004736 (- n 1)))))
%o (define (A255129bi row col) ((rowfun_n_for_A255127 col) row)) ; Other code as in A255127.
%Y Transpose: A255127.
%Y Inverse: A255130. (When considered as a permutation of natural numbers with a(1) = 1).
%Y Row 1: A003309 (without the initial 1).
%Y Column 1: A005843 (even numbers).
%Y Main diagonal: A255410.
%K nonn,tabl
%O 2,1
%A _Antti Karttunen_, Feb 22 2015
|