OFFSET
1,3
COMMENTS
a(2^n) is A087046(n).
LINKS
Cheng Zhang, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Logistic Map
EXAMPLE
The onsets begin at 1, 3, 1+2*sqrt(2), 1+sqrt(6), ...
MATHEMATICA
degRp[n_] := Sum[MoebiusMu[n/d] 2^(d - 1), {d, Divisors[n]}]; degRo[n_] := degRp[n]*2 - Sum[EulerPhi[n/d] degRp[d], {d, Divisors[n]}]; Table[If[n <= 2, 1, 2 If[2^Round[Log2[n]] == n, degRp[n/2], degRo[n]]], {n, 1, 100}] (* from Cheng Zhang, Apr 02 2012 *)
CROSSREFS
KEYWORD
nonn,hard
AUTHOR
Eric W. Weisstein, Apr 28 2006
EXTENSIONS
More terms from Cheng Zhang, Apr 02 2012
STATUS
approved