The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A064002 List pairs (i,j) with 1 <= i <= j in colexicographic order: (1,1), (1,2), (2,2), (1,3), (2,3), (3,3), (1,4), ... Let a(1) = 1. Then for n>=2 if the (n-1)-st pair is (i,j) then a(n) = a(i) + a(j) + 1. 6

%I #16 Feb 06 2024 11:32:09

%S 1,3,5,7,7,9,11,9,11,13,15,9,11,13,15,15,11,13,15,17,17,19,13,15,17,

%T 19,19,21,23,11,13,15,17,17,19,21,19,13,15,17,19,19,21,23,21,23,15,17,

%U 19,21,21,23,25,23,25,27,17,19,21,23,23,25,27,25,27,29,31,11,13,15,17,17

%N List pairs (i,j) with 1 <= i <= j in colexicographic order: (1,1), (1,2), (2,2), (1,3), (2,3), (3,3), (1,4), ... Let a(1) = 1. Then for n>=2 if the (n-1)-st pair is (i,j) then a(n) = a(i) + a(j) + 1.

%C All entries are odd. There are A001190(n) occurrences of 2n-1 in this sequence.

%C a(n) is the number of vertices in the rooted binary tree (every vertex 0 or 2 children) with Colijn-Plazzotta tree number n. - _Kevin Ryde_, Jul 25 2022

%H Kevin Ryde, <a href="/A064002/b064002.txt">Table of n, a(n) for n = 1..10000</a>

%H C. Colijn and G. Plazzotta, <a href="https://doi.org/10.1093/sysbio/syx046">A Metric on Phylogenetic Tree Shapes</a>, Systematic Biology, 67 (1) (2018), 113-126.

%H Kevin Ryde, <a href="/A064002/a064002.gp.txt">PARI/GP Code</a>

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Lexicographic_order#Colexicographic_order">Colexicographic order</a>

%F a(n) = 2*A064064(n-1) - 1. - _Kevin Ryde_, Jul 25 2022

%e a(2) = a(1)+a(1)+1 = 3,

%e a(3) = a(1)+a(2)+1 = 5,

%e a(4) = a(2)+a(2)+1 = 7,

%e a(5) = a(1)+a(3)+1 = 7, ...

%o (PARI) See links.

%o (Python)

%o from itertools import count, islice

%o def bgen(): yield from ((i, j) for j in count(1) for i in range(1, j+1))

%o def agen():

%o a, g = [None, 1], bgen()

%o for n in count(2):

%o yield a[-1];

%o i, j = next(g)

%o a.append(a[i] + a[j] + 1)

%o print(list(islice(agen(), 72))) # _Michael S. Branicky_, Jul 25 2022

%Y Cf. A001190, A064064.

%K easy,nonn

%O 1,2

%A Claude Lenormand (claude.lenormand(AT)free.fr), Sep 14 2001

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 13 03:04 EDT 2024. Contains 372497 sequences. (Running on oeis4.)