OFFSET
1,1
EXAMPLE
2^8/8^2=4, .. n :: 1,2,4,8,16,32,64,128,256,512,..
MATHEMATICA
lst={}; Do[i=2^n/n^2; If[IntegerQ[i], AppendTo[lst, i]], {n, 6!}]; lst
PROG
(PARI) a(n)=2^(2^(n-1))/(2^(2*n-2))
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 22 2009
EXTENSIONS
Program by Charles R Greathouse IV, Oct 12 2009
STATUS
approved