The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A098019 Irrational rotation of e as an implicit sequence with an uneven Cantor cartoon. 0

%I #8 Mar 30 2012 17:34:14

%S 1,4,8,11,12,15,18,19,22,26,29,33,36,40,43,47,50,51,54,57,58,61,65,68,

%T 72,75,79,82,83,86,89,90,93,97,100,104,107,111,114,118,121,122,125,

%U 128,129,132,136,139,143,146,150,153,154,157,160,161,164,168,171,175,178

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

%F 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

%t 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]

%K nonn

%O 1,2

%A _Roger L. Bagula_, Sep 09 2004

%E Edited by _N. J. A. Sloane_, May 08 2007

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

Last modified September 10 01:04 EDT 2024. Contains 375769 sequences. (Running on oeis4.)