|
| |
|
|
A063871
|
|
n->7n-1 if n odd, n/2 if n even.
|
|
1
| |
|
|
3, 20, 10, 5, 34, 17, 118, 59, 412, 206, 103, 720, 360, 180, 90, 45, 314, 157, 1098, 549, 3842, 1921, 13446, 6723, 47060, 23530, 11765, 82354, 41177, 288238, 144119, 1008832, 504416, 252208, 126104, 63052, 31526, 15763, 110340, 55170, 27585
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,500
|
|
|
MATHEMATICA
| NestList[If[OddQ[#], 7#-1, #/2]&, 3, 50] (* From Harvey P. Dale, Aug 04 2011 *)
|
|
|
PROG
| (PARI) f(n) = if(n<1, n=3, if(Mod(f(n-1), 2)==0, f(n-1)/2, 7*f(n-1)-1)); for(n=0, 50, print(f(n)))
(PARI) { for (n=0, 500, if (n, if(a%2, a=7*a - 1, a/=2), a=3); write("b063871.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 01 2009]
|
|
|
CROSSREFS
| Sequence in context: A117844 A067607 A013332 * A084316 A126810 A115280
Adjacent sequences: A063868 A063869 A063870 * A063872 A063873 A063874
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Aug 27 2001
|
|
|
EXTENSIONS
| More terms from Larry Reeves (larryr(AT)acm.org), Aug 29 2001
|
| |
|
|
