main=putStr$unwords[show$length$show$2^2^k|k<-[0..20]]