A255825 - OEIS

%I #6 Mar 13 2015 18:47:42

%S 1,2,3,4,1,1,1,1,1,2,1,2,1,2,3,1,2,3,1,4,2,3,1,4,1,2,3,1,4,1,1,2,3,1,

%T 1,4,1,1,2,1,3,1,1,4,1,1,1,2,1,2,3,1,1,4,1,1,1,1,2,2,1,2,3,1,1,1,4,1,

%U 1,2,1,1,2,2,3,1,2,3,1,1,1,1,4,1,2,1,2,1,1,3,2,2,3,1,1,2,3,1,1,4

%N A self-generating sequence: a(n) = n for n < 5; a(5n) = a(n); if every 5th term (a(5), a(10), a(15),...) is deleted, this gives back the original sequence.

%C This is the m=5 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/5) if n==0 (mod 5); a(n) = a(n - floor(n/5)) otherwise.

%o (PARI) a(n, m=5)=while(n>=m, if(n%m, n-=n\m, n\=m)); n \\ _M. F. Hasler_, Mar 07 2015

%Y Cf. A117943, A255824 - A255829, A126616.

%K nonn

%O 1,2

%A _M. F. Hasler_, Mar 07 2015