Search for a heavy resonance decaying to a top quark and a vector-like top quark in the lepton plus jets final state in pp collisions at root s=13 TeV