login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..56.

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 A276382

Adjacent sequences:  A098019 A098020 A098021 * A098023 A098024 A098025

KEYWORD

nonn

AUTHOR

Roger L. Bagula, Sep 09 2004

EXTENSIONS

Edited and extended by Robert G. Wilson v, Sep 25 2004

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified November 22 15:27 EST 2017. Contains 295089 sequences.