A089756 a(1)=1 and a(i+1)=a(i)+9 if a(i)<=35, and a(i+1)=a(i)-35 if a(i)>35.

1, 10, 19, 28, 37, 2, 11, 20, 29, 38, 3, 12, 21, 30, 39, 4, 13, 22, 31, 40, 5, 14, 23, 32, 41, 6, 15, 24, 33, 42, 7, 16, 25, 34, 43, 8, 17, 26, 35, 44, 9, 18, 27, 36, 1, 10, 19, 28, 37, 2, 11, 20, 29, 38, 3, 12, 21, 30, 39, 4, 13, 22, 31, 40, 5, 14, 23, 32, 41, 6, 15, 24, 33, 42, 7, 16, 25, 34, 43, 8, 17

Offset

1,2

Comments

Infinite cyclic sequence with a(44*j+k)=a(k) and 0 < k < 45 with all and only one time the 44th first integers > 0.

Periodic with period = 44. - Harvey P. Dale, Nov 04 2019

Links

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

Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).

Maple

A089756 := proc(n)
    option remember;
    if n = 1 then
        1;
    else
        if procname(n-1) > 35 then
            procname(n-1)-35 ;
        else
            procname(n-1)+9 ;
        end if;
    end if;
end proc:
seq(A089756(n), n=1..100) ; # R. J. Mathar, Feb 28 2019

Mathematica

NestList[If[#<36, #+9, #-35]&, 1, 80] (* Harvey P. Dale, Nov 04 2019 *)

Crossrefs

Sequence in context: A044053 A044434 A098750 * A097153 A017173 A326833

Adjacent sequences: A089753 A089754 A089755 * A089757 A089758 A089759

Keyword

nonn,easy,less

Author

Pierre CAMI, Jan 08 2004

Status

approved