login
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.
2
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
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
KEYWORD
nonn,easy,less
AUTHOR
Pierre CAMI, Jan 08 2004
STATUS
approved