%I #25 Jan 21 2024 02:23:14

%S 0,1,2,5,6,7,10,11,12,15,16,17,23,24,25,28,29,30,33,34,35,38,39,40,46,

%T 47,48,51,52,53,56,57,58,61,62,63,69,70,71,74,75,76,79,80,81,84,85,86,

%U 92,93,94,97,98,99,102,103,104,107,108,109,119,120,121,124

%N The nonnegative integers n such that there exists a number k with A034968(n+k)=k.

%H Antti Karttunen, <a href="/A219650/b219650.txt">Table of n, a(n) for n = 0..10080</a>

%F a(0) = 0; and for n>0, a(n) = a(n-1) + A230405(n-1).

%F a(n) = A219651(2*n).

%F a(n) ~ 2*n. - _Amiram Eldar_, Jan 21 2024

%o (Scheme, with memoizing definec-macro from _Antti Karttunen_'s IntSeq-library):

%o (definec (A219650 n) (if (zero? n) n (+ (A219650 (- n 1)) (A230405 (- n 1)))))

%o (define (A219650 n) (A219651 (* 2 n))) ;; Alternative definition.

%Y Inverse: A230414. (In a sense that A230414(a(n)) = n for all n).

%Y First differences: A230405. Bisection of A219651. Complement: A219658. Characteristic function: A230412. Cf. also A230423 and A230424.

%Y Analogous sequence for binary system: A005187, for Zeckendorf expansion: A219640.

%K nonn

%O 0,3

%A _Antti Karttunen_, Nov 25 2012

%E Name changed by _Antti Karttunen_, Nov 01 2013