input <- read.csv("input1a.csv", header=F)[[1]] alt <- 2020 - input vals <- input[input %in% alt] vals # 719796 vals[1] * vals[2]
