|
%I #11 Aug 31 2017 04:19:44
%S 2,2,1,2,2,2,1,2,2,1,2,2,2,1,2,2,2,1,2,2,1,2,2,2,2,1,1,2,2,2,2,1,2,2,
%T 2,2,1,2,2,1,1,2,2,2,2,2,2,1,1,2,2,2,2,2,2,1,1,2,2,2,2,1,1,2,2,2,2,2,
%U 1,1,1,1,1,2,1,1,2,1,1,2,1,1,2,1,1,1,1,2,1,1,2,1,1,2,1,1,2,1,1,1,1,2,1,1,2,1,1,1,1,1
%N A simple "Fractal Jump Sequence" (FJS).
%C See A105397 for definition of Fractal Jump Sequence.
%H Charles R Greathouse IV, <a href="/A105697/b105697.txt">Table of n, a(n) for n = 1..10000</a>
%o (PARI) first(n)=my(v=apply(k->k+1,binary(255641055942322677663)),i=1,j=1); if(#v<n,v=concat(v,vector(3*n-#v))); while(i<=n, if(v[j]==0,v[j]=v[i]); if(v[i]==0,v[i]=v[j]); if(v[i]==0, v[i]=v[j]=1); if(v[i]!=v[j],error("Failed at step "i", "j", was "v[i]" and needed to be "v[j])); j+=v[j]+1; i++); v[1..n] \\ _Charles R Greathouse IV_, Aug 26 2017
%K easy,nonn
%O 1,1
%A _Eric Angelini_, May 04 2005
%E Partially edited by _N. J. A. Sloane_, Jun 08 2010
%E Corrected and extended by _Charles R Greathouse IV_, Aug 26 2017
|
