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