#
# Written by:
# -- 
# John L. Weatherwax                2009-04-21
# 
# email: wax@alum.mit.edu
# 
# Please send comments and especially bug reports to the
# above email address.
# 
#-----

save_plots = F

if( save_plots ){ postscript("../WriteUp/Graphics/1967/prob_16.eps", onefile=FALSE, horizontal=FALSE) }

b = seq( 2, 12, length.out=100 ) 
y = b^3 - 6 * b^2 - 24 * b - 27 
plot(b,y,type="l",ylab="b^3 - 6 * b^2 - 24 * b - 27")

grid()

if( save_plots ){ dev.off() }

b = 9 # is the base
s = b + 2 + b + 5 + b + 6 # in base 10