|
%I #9 Dec 25 2015 21:05:17
%S 1,2,6,4,7,10,11,10,25,19,38,23,39,20,29,40,51,62,70,77,79,78,73,66,
%T 57,47,118,91,68,49,106,71,147,93,57,108,62,112,61,105,174,89,141,68,
%U 104,154,224,100,139,191,80,105,136,172,215,263,98,116,135,154,174,192,210,225,238,248,254,257,256,251,244,233,219,204,187,169,151,133
%N Local maxima of A265894 just before its descents: a(n) = A265894(A265899(n) - 1).
%H Antti Karttunen, <a href="/A266120/b266120.txt">Table of n, a(n) for n = 1..2016</a>
%F a(n) = A265894(A265899(n) - 1).
%o (PARI)
%o A099563(n) = { my(i=2,dig=0); until(0==n, dig = n % i; n = (n - dig)/i; i++); return(dig); };
%o A265894 = n -> A099563((2*n)! / n!);
%o i=0; p=1; n=0; while(i < 2016, n++; k = A265894(n); if(k <= p, i++; write("b266120.txt", i, " ", p)); p = k; );
%o (Scheme) (define (A266120 n) (A265894 (- (A265899 n) 1)))
%Y Cf. A265894, A265899.
%K nonn
%O 1,2
%A _Antti Karttunen_, Dec 24 2015
|
