# Maple program to generate b133418.txt given b005589.txt
# usage: 
# maple -q < thisfilehere > b133418.txt
# Richard J. Mathar, 2007-11-30
interface(quiet=true) :
a005589 := [] :
fid := fopen("b005589.txt",READ) :
lin := fscanf(fid,"%d %d") :
while nops(lin) <> 0 do
	a005589 := [op(a005589), op(2,lin)] ;
	lin := fscanf(fid,"%d %d") :
od:

A005589 := proc(n)
	global a005589 ;
	if n >= nops(a005589) then
		quit ;
	else
		op(n+1,a005589) ;
	fi ;
end:
A133418 := proc(n)
	local l ;
	l := A005589(n) ;
	if l = 4 then
		0 ;
	else
		A133418(l)+1 ;
	fi ;
end:

for n from 0 do
	printf("%d %d\n",n,A133418(n)) ;
od: