Graph Option: "PlotJoined->True"

zak seidov zakseidov at yahoo.com
Thu May 25 06:34:29 CEST 2006


Neil, Russ, seqfans!
These two 
(nice, not only because mine) 
sequences
look pretty ugly without 
Graph Option 
"PlotJoined->True" (as in Mmca).
Is such option in the "schedule of update"?
Thanks, Zak

%I A119477
%S A119477
1,2,4,3,6,5,5,4,8,7,7,6,7,6,6,5,10,9,9,8,9,8,8,7,9,8,8,7,8,7,7,6,12,11,
%T A119477
11,10,11,10,10,9,11,10,10,9,10,9,9,8,11,10,10,9,10,9,9,8,10,9,9,8,9,8,
%U A119477
8,7,14,13,13,12,13,12,12,11,13,12,12,11,12,11,11,10,13,12,12,11,12,11
%N A119477 a(1)=1, a(n)=a((n+1)/2)+2 if n is odd,
a(n)=a(n/2)+1 if n is even.
%t A119477
a[1]=1;a[n_]:=a[n]=If[OddQ[n],a[(n+1)/2]+2,a[n/2]+1];
Table[a[n],{n,300}]

%I A119476
%S A119476
1,3,4,5,5,6,6,7,6,7,7,8,7,8,8,9,7,8,8,9,8,9,9,10,8,9,9,10,9,10,10,11,8,
%T A119476
9,9,10,9,10,10,11,9,10,10,11,10,11,11,12,9,10,10,11,10,11,11,12,10,11,
%U A119476
11,12,11,12,12,13,9,10,10,11,10,11,11,12,10,11,11,12,11,12,12,13,10,11
%N A119476 a(1)=1, a(n)=a((n+1)/2)+1 if n is odd,
a(n)=a(n/2)+2 if n is even.
%t A119476
a[1]=1;a[n_]:=a[n]=If[OddQ[n],a[(n+1)/2]+1,a[n/2]+2];
Table[a[n],{n,300}]


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 





More information about the SeqFan mailing list