|
Search: id:A098021
|
|
|
| A098021 |
|
Irrational rotation of the square root of 2 as an implicit sequence with an uneven Cantor cartoon. |
|
+0
2
|
|
| 5, 10, 17, 22, 29, 34, 39, 46, 51, 58, 63, 68, 75, 80, 87, 92, 99, 104, 109, 116, 121, 128, 133, 138, 145, 150, 157, 162, 169, 174, 179, 186, 191, 198, 203, 208, 215, 220, 227, 232, 237, 244, 249, 256, 261, 268, 273, 278, 285, 290, 297, 302, 307, 314, 319, 326
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
f(n)= n*sqrt(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[Sqrt[2]*n, 1]; g[x_] := -1 /; 0 <= x <= 1/3; g[x_] := 0 /; 1/3 < x <= 2/3; g[x_] := 1 /; 2/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: A050321 A083866 A140138 this_sequence A098022 A071978 A105705
Adjacent sequences: A098018 A098019 A098020 this_sequence A098022 A098023 A098024
|
|
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
|
