A106739 24 point graph combinatorial embedding genus one as a substitution.

1, 4, 7, 4, 7, 1, 2, 14, 1, 22, 20, 4, 7, 1, 2, 14, 1, 22, 20, 1, 2, 14, 1, 22, 20, 4, 7, 0, 4, 8, 4, 15, 16, 4, 7, 7, 11, 9, 7, 9, 17, 4, 7, 1, 2, 14, 1, 22, 20, 1, 2, 14, 1, 22, 20, 4, 7, 0, 4, 8, 4, 15, 16, 4, 7, 7, 11, 9, 7, 9, 17, 1, 2, 14, 1, 22, 20, 4, 7, 0, 4, 8, 4, 15, 16, 4, 7, 7, 11, 9, 7

Offset

0,2

Links

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

Wendy Myrvold, Embedding Graphs on Surfaces

Formula

The combinatorial embedding (Genus 1): 0 : 2 3, 1 : 4 7, 2 : 0 4 8, 3 : 0 5 6, 4 : 1 2 14, 5 : 3 18 23, 6 : 3 23 17, 7 : 1 22 20, 8 : 2 21 19, 9 : 10 20 22, 10 : 9 19 21, 11 : 16 18 22, 12 : 15 17 21, 13 : 15 23 16, 14 : 4 15 16, 15 : 12 13 14, 16 : 11 14 13, 17 : 6 20 12, 18 : 5 19 11, 19 : 8 10 18, 20 : 7 9 17, 21 : 8 12 10, 22 : 7 11 9, 23 : 5 13 6,

Mathematica

s[0 ] = {2, 3}; s[1 ] = {4, 7}; s[2] = { 0, 4, 8}; s[3 ] = { 0, 5, 6}; s[4 ] = {1, 2, 14}; s[5 ] = {3, 18, 23}; s[6 ] = { 3, 23, 17}; s[7 ] = { 1, 22, 20}; s[8 ] = { 2, 21, 19}; s[9 ] = { 10, 20, 22}; s[10 ] = { 9, 19, 21}; s[11] = { 16, 18, 22}; s[12 ] = { 15, 17, 21}; s[13 ] = { 15, 23, 16}; s[14 ] = { 4, 15, 16}; s[15 ] = { 12, 13, 14}; s[16 ] = { 11, 14, 13}; s[17 ] = { 6, 20, 12}; s[18 ] = { 5, 19, 11}; s[19 ] = { 8, 10, 18}; s[20 ] = {7, 9, 17}; s[21 ] = { 8, 12, 10}; s[22 ] = { 7, 11, 9}; s[23 ] = { 5, 13, 6}; t[a_] := Join[a, Flatten[s /@ a]]; p[0] = {0}; p[1] = t[{1}]; p[n_] := t[p[n - 1]] aa = p[4]

Crossrefs

Sequence in context: A202501 A358189 A195362 * A112677 A010712 A259499

Adjacent sequences: A106736 A106737 A106738 * A106740 A106741 A106742

Keyword

nonn,uned,obsc

Author

Roger L. Bagula, May 15 2005

Status

approved