|
%I #9 Jun 25 2014 13:10:54
%S 0,1,2,3,5,6,7,8,10,11,12,13,14,15,16,17,19,20,21,22,24,25,26,27,28,
%T 29,30,31,33,34,35,36,38,39,40,41,42,43,44,45,47,48,49,50,52,53,54,55,
%U 56,57,58,59,61,62,63,64,66,67,68,69,70,71,72,73,75,76,77,78,80,81
%N The ending points of runs of consecutive terms with the same parity in A014418 (n represented in Greedy Catalan Base).
%C The ending points of runs in A244220 and A244221.
%C Positions where A014418(n+1) <> A014418(n) modulo 2. (Same is true for A244161).
%H Antti Karttunen, <a href="/A244218/b244218.txt">Table of n, a(n) for n = 0..4120</a>
%F a(0) = 0, a(n) = A244226(n) + A244218(n-1).
%o (Scheme, with _Antti Karttunen_'s IntSeq-library, two alternative definitions)
%o (definec (A244218 n) (if (zero? n) 0 (+ (A244226 n) (A244218 (- n 1)))))
%o (define A244218 (NONZERO-POS 0 0 (lambda (n) (modulo (- (A014418 (+ n 1)) (A014418 n)) 2))))
%Y Cf. A014418, A244161, A244220, A244221, A244219 (gives the corresponding starting points).
%Y Partial sums of A244226.
%K nonn
%O 0,3
%A _Antti Karttunen_, Jun 23 2014
|
