OFFSET
1,2
COMMENTS
All powers of 2 are present, even powers of 3, fourth powers of 5, etc. - Robert G. Wilson v
EXAMPLE
The 10th element is a=128 with m = 14 and n =7 because 128 =(14/7)^(14-7).
MAPLE
a:=proc(N) local a, m, n; for m from 1 to N do for n from 1 to m do a:=(m/n)^(m-n); if(floor(a)=a) then print(a) fi; od; od; end: # convert into set # sort set
MATHEMATICA
Take[ Select[ Union[ Flatten[ Table[(m/n)^(m - n), {m, 52}, {n, m}]]], IntegerQ[ # ] &], 40] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Nov 12 2005
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Nov 14 2005
STATUS
approved