login
A164632
a(1)=1 followed by 2^k appearing 2^(2*k-1) times for k>0.
3
1, 2, 2, 4, 4, 4, 4, 4, 4, 4, 4, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16
OFFSET
1,2
COMMENTS
Occured when analyzing A056753 to construct a recurrence.
LINKS
FORMULA
a(n) = f(n,1,1) with f(x,y,z) = if x=1 then z else if y=1 then f(x-1,2*z*z,2*z) else f(x-1,y-1,z).
PROG
(Haskell)
a164632 n = a164632_list !! (n-1)
a164632_list = 1 : concatMap (\x -> replicate (2^(2*x-1)) (2^x)) [1..]
-- Reinhard Zumkeller, Feb 24 2012, Oct 17 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 23 2009
EXTENSIONS
Typo in formula fixed by Reinhard Zumkeller, Oct 16 2010
STATUS
approved