OFFSET
1,1
COMMENTS
See A262147 for extended definition.
LINKS
B. Klee, A Pit of Flowsnakes, Complex Systems, 24, 4 (2015).
B. Klee, Flowsnake Q-Function, Wolfram Demonstrations(2015).
FORMULA
Conjectures from Colin Barker, Jan 24 2016: (Start)
a(n) = 49*a(n-6) for n>6.
G.f.: 56*(1+x+7*x^2+7*x^3+x^4+7*x^5) / ((1-7*x^3)*(1+7*x^3)).
(End)
MATHEMATICA
b[n_] := Select[Union@Join[Flatten[MapIndexed[#1/(8 7^#2[[1]]) &, MapIndexed[With[{l =If[OddQ[#2[[1]] ], {10, 14, 8, 8, 10}, {10, 8, 8, 14, 10}]}, FoldList[Plus, #1, l]] &, FoldList[7 (#1 + #2) + 24 &, 3, Table[If[OddQ[i], 10, 26], {i, 1, 2 Ceiling[n/6]}]] ] ] ] ], # < 3/8 &][[1 ;; n]]; Denominator[b[100]]
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Bradley Klee, Sep 12 2015
STATUS
approved