A098019 Irrational rotation of e as an implicit sequence with an uneven Cantor cartoon.

1, 4, 8, 11, 12, 15, 18, 19, 22, 26, 29, 33, 36, 40, 43, 47, 50, 51, 54, 57, 58, 61, 65, 68, 72, 75, 79, 82, 83, 86, 89, 90, 93, 97, 100, 104, 107, 111, 114, 118, 121, 122, 125, 128, 129, 132, 136, 139, 143, 146, 150, 153, 154, 157, 160, 161, 164, 168, 171, 175, 178

Offset

1,2

Links

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

Formula

f[n_]=Mod[E*n, 1] g[x_]:=-1/;0<=x<=1/3 g[x_]:=0/;1/3<x<=2/3 g[x_]:=11/;1/3<x<=1 a(n)=n If N[f[n+2]-2*f[n+1]+f[n]]-g[f[n+1]]==0

Mathematica

f[n_]=Mod[E*n, 1]; digits=200; (* uneven Cantor type function*); g[x_]:=-1/ ; 0<=x<=1/3; g[x_]:=0/; 1/3<x<=2/3; g[x_]:=11/; 1/3<x<=1; a=Delete[Union[Table[If [N[f[n+2]-2*f[n+1]+f[n]]-g[f[n+1]]==0, n, 0], {n, 1, digits}]], 1]

Crossrefs

Sequence in context: A311016 A311017 A311018 * A288150 A311019 A068798

Adjacent sequences: A098016 A098017 A098018 * A098020 A098021 A098022

Keyword

nonn

Author

Roger L. Bagula, Sep 09 2004

Extensions

Edited by N. J. A. Sloane, May 08 2007

Status

approved