|
%I #9 Jun 26 2014 18:48:26
%S 10,11,12,13,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,52,
%T 53,54,55,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,
%U 86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105
%N Numbers n such that when the n-th Catalan restricted growth string [b_k, b_{k-1}, ..., b_2, b_1] (see A239903) is viewed as a simple numeral in Catalan Base: b_k*C(k) + b_{k-1}*C(k-1) + ... + b_2*C(2) +b_1*C(1) it differs from n. Here C(m) = A000108(m).
%H Antti Karttunen, <a href="/A244156/b244156.txt">Table of n, a(n) for n = 1..16156</a>
%o (Scheme, with _Antti Karttunen_'s IntSeq-library)
%o (define A244156 (MATCHING-POS 1 1 (lambda (k) (not (= k (CatBaseSum (A239903raw k))))))) ;; A239903raw given in A239903.
%o (define (CatBaseSum lista) (let loop ((digits (reverse lista)) (i 1) (s 0)) (if (null? digits) s (loop (cdr digits) (+ i 1) (+ s (* (car digits) (A000108 i)))))))
%Y Complement of A244155. Positions of nonzeros in A244157.
%Y Cf. A000108, A239903, A014418.
%K nonn
%O 1,1
%A _Antti Karttunen_, Jun 22 2014
|
