OFFSET
1,1
COMMENTS
a(n)*2^k also contains 256 as the highest power of 2 for any k >= 0.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000 (* First 50 from Derek Orr *)
MATHEMATICA
hp256Q[n_]:=Max[Select[NestWhileList[If[EvenQ[#], #/2, 3#+1]&, n, #>1&], IntegerQ[ Log[ 2, #]]&]]==256; Select[Range[1, 4301, 2], hp256Q] (* Harvey P. Dale, Feb 10 2019 *)
PROG
(PARI)
Max2(n)=v=[n]; while(n!=1, if(n==Mod(0, 2), n=n/2; v=concat(v, n)); if(n==Mod(1, 2)&&n!=1, n=3*n+1; v=concat(v, n))); k=1; while(vecsearch(vecsort(v), 2^k), k++); 2^(k-1)
n=1; while(n<10^4, if(n%2&&Max2(n)==256, print1(n, ", ")); n++)
CROSSREFS
KEYWORD
nonn
AUTHOR
Derek Orr, Sep 22 2014
STATUS
approved