|
%I #16 May 23 2022 03:53:36
%S 1,2,3,1,1,1,1,2,1,2,1,3,2,1,3,1,2,1,3,1,1,2,1,1,3,1,1,1,2,1,1,2,3,1,
%T 1,1,1,2,1,2,1,2,3,1,1,1,1,3,1,2,1,2,2,1,2,1,3,1,1,3,1,1,3,1,1,2,1,2,
%U 2,2,1,1,2,1,3,3,1,1,3,1,1,1,3,1,1,1,2,2,1,2,2,1,2,1,1,1,2,1,3,3
%N a(n) = n for n < 4; a(4n) = a(n); if every 4th term (a(4), a(8), a(12), ...) is deleted, this gives back the original sequence.
%C A self-generating sequence. This is the m=4 analog of the m=10 variant A126616. Sequence A117943 is the m=3 analog with all terms decreased by 1.
%F a(n) = a(n/4) if n == 0 (mod 4); a(n) = a(n - floor(n/4)) otherwise.
%o (PARI) a(n, m=4)=while(n>=m, if(n%m, n-=n\m, n\=m)); n \\ _M. F. Hasler_, Mar 07 2015
%Y Cf. A117943, A255825, A255826, A255827, A255828, A255829, A126616.
%K nonn
%O 1,2
%A _M. F. Hasler_, Mar 07 2015
|
