|
%I #17 Aug 31 2017 14:15:50
%S 1,2,3,4,1,5,2,6,3,7,4,1,8,5,2,9,6,3,10,7,4,1,11,8,5,2,12,9,6,3,13,10,
%T 7,4,1,14,11,8,5,2,15,12,9,6,3,16,13,10,7,4,1,17,14,11,8,5,2,18,15,12,
%U 9,6,3,19,16,13,10,7,4,1,20,17,14,11,8,5,2,21,18,15,12,9,6,3
%N Signature sequence of Pi (arrange the numbers i+j*x (i,j >= 1) in increasing order; the sequence of i's is the signature of x).
%D C. Kimberling, "Fractal Sequences and Interspersions", Ars Combinatoria, vol. 45 p 157 1997.
%H T. D. Noe, <a href="/A023133/b023133.txt">Table of n, a(n) for n=1..1000</a>
%H C. Kimberling, <a href="http://faculty.evansville.edu/ck6/integer/intersp.html">Interspersions</a>
%o (PARI) lista(nn) = {v = vector(nn^2, k, kij = k+nn-1; i = 1+(kij % nn); j = kij\nn; i+j*Pi); vs = vecsort(v, , 1); for (k=1, #vs, print1(curi = 1+((vs[k]+nn-1) % nn), ", "); if (curi == nn, break));} \\ _Michel Marcus_, Apr 10 2015
%Y Cf. A001840, A008810.
%K nonn
%O 1,2
%A _Clark Kimberling_
|
