This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A097927 #11 Sep 30 2016 18:17:14
%S A097927 1,46,23,35,29,32,16,8,4,2,1,46,23,35,29,32,16,8,4,2,1,46,23,35,29,32,
%T A097927 16,8,4,2,1,46,23,35,29,32,16,8,4,2,1,46,23,35,29,32,16,8,4,2,1,46,23,
%U A097927 35,29,32,16,8,4,2,1,46,23,35,29,32,16,8,4,2,1,46,23,35,29,32,16,8,4,2,1,46,23
%N A097927 If a(n-1) is divisible by 2 then a(n) = a(n-1)/2. If a(n-1) is not divisible by 2 then a(n) = 47-(a(n-1)+1)/2; a(0)=1.
%C A097927 The old entry with this sequence number was a duplicate of A097945.
%C A097927 Periodic, with period = 10. - _Harvey P. Dale_, Sep 30 2016
%F A097927 Periodic with period of length 10.
%p A097927 a:=proc(n) option remember; local k; k:=47;
%p A097927 if n=0 then RETURN(1); fi;
%p A097927 if a(n-1) mod 2 = 0 then RETURN(a(n-1)/2); fi;
%p A097927 RETURN(k-(a(n-1)+1)/2); end;
%t A097927 NestList[If[EvenQ[#],#/2,47-(#+1)/2]&,1,90] (* or *) PadRight[{},90,{1,46,23,35,29,32,16,8,4,2}] (* _Harvey P. Dale_, Sep 30 2016 *)
%K A097927 nonn
%O A097927 0,2
%A A097927 _N. J. A. Sloane_, Sep 25 2008, based on email from Zak Seidov, May 12 2008
%E A097927 Definition corrected by _Harvey P. Dale_, Sep 30 2016