login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A378853
Define f(x) = abs(1-1/x) and sequence {b(n)} such that b(n+1) = f(b(n)). a(n) is the number of initial values b(1) such that {b(n)}'s period has length n.
1
1, 2, 0, 4, 10, 12, 28, 40, 72, 110, 198, 300, 520, 812, 1350, 2160, 3570, 5688, 9348, 15000, 24444, 39402, 64078, 103320, 167750, 270920, 439128, 709800, 1149850, 1859010, 3010348, 4868640, 7880994, 12748470, 20633200, 33379200, 54018520, 87394452, 141421800
OFFSET
1,2
COMMENTS
Define oo by 1/oo = 0 and 1/0 = oo, therefore f(0) = oo, f(1) = 0, f(oo) = 1. (0, oo, 1) is a period of length 3 in {b(n)}, but we dismiss it in a(3) because it's concerned with non-real numbers.
Define f_k(x) by f_0(x) = x and f_k(x) = f(f_(k-1)(x)), therefore b(n+1) = f_n(b(1)).
We observe that the function f_k(x) is a piecewise fractional function, and we can prove by induction that each subfunction has the following properties:
1. The y-coordinates of each pair of endpoints must be either (0,1), (1,oo) or (oo,0).
2. Each subfunction is monotonic and continuous.
If {b(n)} has a period of length k, the function f_(k-1)(x) must intersect the line y=x at x=b(1). Note that each subfunction can intersect y=x at most one time; they intersect iff the subfunction's domain is within (0,1) and the y-coordinate of its endpoints is (0,1); or the subfunction's domain is within (1,oo) and the y-coordinate of its endpoints is (1,oo). Those can be proved by induction.
Therefore, we need to study an array separately on (0,1) and (1,oo).
On (0,1), the initial array is (0,1). After each iteration, 0 -> oo, 1 -> 0, oo -> 1. If 0 and oo are adjacent in the resulting array, put an 1 between them. The number of possible b(1)'s for period of length no more than n is given by the number of adjacent (0,1)'s and (1,0)'s in the array iterated (n-1) times. Denote it by x(n). x(1) = 1, x(2) = 2, x(n+2) = x(n) + x(n+1).
On (1,oo), the initial array is (1,oo). After each iteration, 0 -> oo, 1 -> 0, oo -> 1. If 0 and oo are adjacent in the resulting array, put an 1 between them. The number of possible b(1)'s for period of length no more than n is given by the number of adjacent (1,oo)'s and (oo,1)'s in the array iterated (n-1) times. Denote it by y(n). y(1) = 0, y(2) = 1, y(n+2) = y(n) + y(n+1).
Therefore, the total number of possible b(1)'s for period of length no more than n is x(n) + y(n) = L(n), where L(n) is the Lucas number A000032(n), i.e. Sum{d|n} a(n) = L(n).
Lastly, using the Moebius inversion formula, we can get a(n) = Sum{d|n} mu(d)*L(n/d). This is the formula for a(n) for cases except n=3, since we can prove that invalid periods of length n != 3 does not exist.
The idea and general proof are from 73Dsi.
FORMULA
a(3) = 0; a(n) = Sum{d|n} mu(d)*L(n/d) if n != 3, where mu(n) is the Moebius function A008683(n), and L(n) is the Lucas number A000032(n).
EXAMPLE
For n = 1, only b(1) = (sqrt(5)-1)/2 is possible, so a(1) = 1;
For n = 3, there are no possible b(1)'s.
MATHEMATICA
A378853[n_] := If[n == 3, 0, DivisorSum[n, MoebiusMu[#]*LucasL[n/#] &]];
Array[A378853, 50] (* Paolo Xausa, Dec 21 2024 *)
PROG
(PARI) L(n)=real((2+quadgen(5))*quadgen(5)^n);
a(n)=if(n==3, 0, sumdiv(n, d, moebius(d)*L(n/d)));
CROSSREFS
Cf. A008683 (Moebius function), A000032 (Lucas numbers).
Sequence in context: A224822 A246928 A167341 * A359188 A361269 A343472
KEYWORD
nonn
AUTHOR
Yifan Xie, Dec 09 2024
STATUS
approved