A195645 Erroneous version of A000136.
1, 2, 6, 16, 50, 144, 462, 1392, 4356, 14060, 46310, 146376
Offset: 1
Keywords
References
- W. F. Lunnon, A map-folding problem, Math. Comp. 22 (1968), 193-199.
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
a(4) = 4: the four solutions with three crossings are the two solutions shown in A086441(3) together with their reflections about a North-South axis.
A000136 = Import["https://oeis.org/A000136/b000136.txt", "Table"][[All, 2]]; a[n_] := A000136[[n]]/n; Array[a, 45] (* Jean-François Alcover, Sep 06 2019 *)
A000682 = Import["https://oeis.org/A000682/b000682.txt", "Table"][[All, 2]]; a[n_] := A000682[[n + 1]]/2; a /@ Range[2, 44] (* Jean-François Alcover, Sep 03 2019 *) A000136 = Import["https://oeis.org/A000136/b000136.txt", "Table"][[All, 2]]; a[n_] := A000136[[n + 1]]/(2 n + 2); a /@ Range[2, 44] (* Jean-François Alcover, Sep 06 2019 *)
For n = 2 the a(2) = 8 foldings of a sheet labeled 1234 in reading order are 1243, 1342, 2134, 2431, 3124, 3421, 4213, 4312.
A000682 = Cases[Import["https://oeis.org/A000682/b000682.txt", "Table"], {, }][[All, 2]]; A077014 = Cases[Import["https://oeis.org/A077014/b077014.txt", "Table"], {, }][[All, 2]]; a[n_] := A000682[[n + 1]] - A077014[[n + 1]]; Array[a, 30] (* Jean-François Alcover, Sep 07 2019, after Andrew Howroyd *)
Comments