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

 

Logo

The OEIS is looking to hire part-time people to help edit core sequences, upload scanned documents, process citations, fix broken links, etc. - Neil Sloane, njasloane@gmail.com

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 May 29 01:07 EDT 2017. Contains 287241 sequences.