#radon5: A short Maple program accompanying the paper
#`On Injectivity of Combinatorial Radon Transform of Order Five'
#by Tewodros Amdeberhan and Melkamu Zeleke.
#Please report bugs to melkamu@math.temple.edu

#Save this file, as "radon5", then go into Maple, type "read radon5:"
#and follow the instructions given there.

print(`Version of Dec. 5, 1996`):

print(`This is radon5: A short Maple program accompanying the paper`):
print(`On Injectivity of Combinatorial Radon Transform of Order Five`):
print(` by Tewodros Amdeberhan and Melkamu Zeleke.`):
print(`This program checks for the possible zeros of equation (1)`):
print(`in the paper for 1<=s<=24 and 1<= gamma <=14.`):
print(`Type az(); to get the zeros.`):


A:=proc(n,k,s)
local su,i:
su:=0:
for i from 0 to k-1 do
su:=su+(-1)^i*binomial(n,i)*(k-i)^(s-1):
od:
end:

az:=proc()
local s,g,n:
for s from 1 to 24 do
    for g from 1 to 14 do
         n:=5^g:
         if A(n,5,s)=0 then print(n):
         fi:
         n:=2*5^g:
         if A(n,5,s)=0 then print(n):
         fi:
         n:=3*5^g:
         if A(n,5,s)=0 then print(n):
         fi:
      od:
od:
end: