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

Author

Pierre CAMI, Jan 08 2004

Keywords

• nonn
• easy
• less

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

• 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).

Programs

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 *)