OFFSET
1,2
COMMENTS
PROG
(ActionScript) // AS3
var a:Array=new Array();
var i:int;
var n:int=0;
var ni:int;
var s:String='';
for (i=0; i<50; i++){
while(a[n]!=undefined) n++;
s+=String(2*n+1)+', ';
a[n]=1;
ni=2*n+1;
while(ni>=2*n+1&&ni>1){
ni=3*ni+1;
while(ni%2==0)ni/=2;
a[(ni-1)/2]=1;
}
}
trace(s);
CROSSREFS
KEYWORD
nonn
AUTHOR
Jimin Park, Mar 05 2011
STATUS
approved