

A097927


If a(n1) is divisible by 2 then a(n) = a(n1)/2. If a(n1) is not divisible by 2 then a(n) = 47(a(n1)+1)/2; a(0)=1.


0



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, 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, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


COMMENTS

The old entry with this sequence number was a duplicate of A097945.
Periodic, with period = 10.  Harvey P. Dale, Sep 30 2016


LINKS

Table of n, a(n) for n=0..82.


FORMULA

Periodic with period of length 10.


MAPLE

a:=proc(n) option remember; local k; k:=47;
if n=0 then RETURN(1); fi;
if a(n1) mod 2 = 0 then RETURN(a(n1)/2); fi;
RETURN(k(a(n1)+1)/2); end;


MATHEMATICA

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


CROSSREFS

Sequence in context: A051161 A260512 A033366 * A033978 A216840 A060958
Adjacent sequences: A097924 A097925 A097926 * A097928 A097929 A097930


KEYWORD

nonn


AUTHOR

N. J. A. Sloane, Sep 25 2008, based on email from Zak Seidov, May 12 2008


EXTENSIONS

Definition corrected by Harvey P. Dale, Sep 30 2016


STATUS

approved



