%I #5 Dec 13 2015 07:55:39
%S 1,7,3,3,1,3,1,3,1,1,3,1,1,3,1,1,1,3,1,1,1,3,1,1,1,1,3,1,1,1,1,3,1,1,
%T 1,1,1,3,1,1,1,1,1,3,1,1,1,1,1,1,3,1,1,1,1,1,1,3,1,1,1,1,1,1,1,3,1,1,
%U 1,1,1,1,1,3,1,1,1,1,1,1,1,1,3,1,1,1,1,1,1,1,1,3,1,1,1,1,1,1,1,1,1,3
%N a(0) = 1, a(1) = 7, otherwise, if A240025(n-1) = 1 [when n is in A033638] a(n) = 3, otherwise a(n) = 1.
%C Each n occurs a(n) times in A265410.
%H Antti Karttunen, <a href="/A265411/b265411.txt">Table of n, a(n) for n = 0..10001</a>
%F a(0) = 1, a(1) = 7, otherwise, if A240025(n-1) = 1 [when n is in A033638] a(n) = 3, otherwise a(n) = 1.
%o (Scheme) (define (A265411 n) (cond ((zero? n) 1) ((= 1 n) 7) ((= 1 (A240025 (- n 1))) 3) (else 1)))
%Y Cf. A033638, A240025.
%Y Cf. A265410, A265412 (partial sums).
%K nonn
%O 0,2
%A _Antti Karttunen_, Dec 09 2015