|
|
A072404
|
|
Denominator of the Reingold-Tarjan sequence, numerator=A072403.
|
|
2
|
|
|
1, 3, 9, 9, 27, 27, 3, 27, 81, 81, 27, 81, 81, 9, 81, 81, 243, 243, 27, 243, 243, 81, 243, 243, 81, 243, 243, 27, 243, 243, 81, 243, 729, 729, 243, 729, 729, 81, 729, 729, 243, 729, 729, 243, 729, 729, 9, 729, 729, 243, 729, 729, 243, 729, 729, 81
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The Reingold-Tarjan sequence is based on the following function defined on even positive integers and range of the rational numbers:
f(2*n) = if n is even then 2*f(n)/3 else (f(n+1)+f(n-1))/3 for n>1, f(2*1)=1.
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(Haskell)
import Data.Ratio ((%), denominator)
a072404 n = a072404_list !! (n-1)
a072404_list = map denominator $
scanl1 (-) $ map ((1 %) . a000244) $ a029837_list
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|