login
A262148
Denominators of domain values whose images via the flowsnake Q-function follow a spiral trajectory.
1
56, 56, 392, 392, 56, 392, 2744, 2744, 19208, 19208, 2744, 19208, 134456, 134456, 941192, 941192, 134456, 941192, 6588344, 6588344, 46118408, 46118408, 6588344, 46118408, 322828856, 322828856, 2259801992, 2259801992, 322828856, 2259801992
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
Numerator sequence: A262147.
Sequence in context: A359604 A292092 A003904 * A008942 A133898 A244357
KEYWORD
frac,nonn
AUTHOR
Bradley Klee, Sep 12 2015
STATUS
approved