A255827 a(n) = n for n < 7; a(7n) = a(n); if every 7th term (a(7), a(14), a(21),...) is deleted, this gives back the original sequence.

1, 2, 3, 4, 5, 6, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 3, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 5, 3, 4, 1, 2, 5, 3, 6, 4, 1, 2, 5, 3, 6, 1, 4, 1, 2, 5, 3, 6, 1, 1, 4, 1, 2, 5, 3, 1, 6, 1, 1, 4, 1, 2, 1, 5, 3, 1, 6, 1, 1, 1, 4, 1, 2, 1, 5, 3, 1, 1, 6, 1, 1, 1, 4, 1, 1, 2, 1, 5, 3, 1, 2, 1, 6

Offset

1,2

Comments

A self-generating sequence. This is the m=7 analog of the m=10 variant A126616. Sequence A117943 is the m=3 analog with all terms decreased by 1.

Links

Table of n, a(n) for n=1..100.

Formula

a(n) = a(n/7) if n==0 (mod 7); a(n) = a(n - floor(n/7)) otherwise.

Prog

(PARI) a(n, m=7)=while(n>=m, if(n%m, n-=n\m, n\=m)); n \\ M. F. Hasler, Mar 07 2015

Crossrefs

Cf. A117943, A255824 - A255829, A126616.

Sequence in context: A256307 A030998 A346691 * A277545 A190596 A338880

Adjacent sequences: A255824 A255825 A255826 * A255828 A255829 A255830

Keyword

nonn

Author

M. F. Hasler, Mar 07 2015

Status

approved