|
| |
|
|
A098022
|
|
Irrational rotation of Log(3)/Log(2) as an implicit sequence with an uneven Cantor cartoon.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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: A190492 A190562 A098021 * A190550 A071978 A105705
Adjacent sequences: A098019 A098020 A098021 * 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
|
| |
|
|
