|
Search: id:A098022
|
|
|
| A098022 |
|
Irrational rotation of Log(3)/Log(2) as an implicit sequence with an uneven Cantor cartoon. |
|
+0
1
|
|
| 5, 10, 17, 22, 29, 34, 41, 46, 51, 58, 63, 70, 75, 82, 87, 94, 99, 104, 111, 116, 123, 128, 135, 140, 147, 152, 157, 164, 169, 176, 181, 188, 193, 200, 205, 210, 217, 222, 229, 234, 241, 246, 253, 258, 263, 270, 275, 282, 287, 294, 299, 306, 311, 316, 323, 328
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
f(n)=n*(Log[3]/Log[2]) (mod 1), g(x)=-1 if 0<=x<=1/3, g(x)=0 if 1/3<x<=2/3 & g(x)=1 if 1/3<x<=1, a(n)=n If f[n+2]-2*f[n+1]+f[n]-g[f[n+1]]=0.
|
|
MATHEMATICA
|
f[n_] := Mod[n*(Log[3]/Log[2]), 1]; g[x_] := -1/; 0<=x<=1/3; g[x_] := 0/; 1/3<x<=2/3; g[x_] := 1/; 1/3<x<=1; a = Delete[ Union[ Table[ If [Simplify[f[n+2] - 2*f[n+1] + f[n]]-g[f[n+1]]==0, n, 0], {n, 330}]], 1]; ListPlot[a, PlotJoined-> True]
|
|
CROSSREFS
|
Sequence in context: A083866 A140138 A098021 this_sequence A071978 A105705 A061409
Adjacent sequences: A098019 A098020 A098021 this_sequence A098023 A098024 A098025
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 09 2004
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 25 2004
|
|
|
Search completed in 0.002 seconds
|
