23 lines
395 B
Plaintext
23 lines
395 B
Plaintext
func a n .
|
|
n += 2
|
|
return n * (n * n + 1) / 2
|
|
.
|
|
func inva x .
|
|
while k * (k * k + 1) / 2 + 2 < x
|
|
k += 1
|
|
.
|
|
return k
|
|
.
|
|
write "The first 20 magic constants: "
|
|
for n to 20
|
|
write a n & " "
|
|
.
|
|
print ""
|
|
print ""
|
|
print "The 1,000th magic constant: " & a 1000
|
|
print ""
|
|
print "Smallest magic square with constant greater than:"
|
|
for e to 10
|
|
print "10^" & e & ": " & inva pow 10 e
|
|
.
|