As simple
test<-list(list(17413624, "item", 4167836), list(17413611, "item",
15284), list(17413151, "item", 11266439), list(17413068,
"item", 4663903), list(17413056, "item", 694589), list(17413006,
"item", 4167836), list(17412951, "item", 4167836), list(17412582,
"item", 1972868), list(17412061, "item", 4167836), list(17411835,
"item", 4167836))
removed <- lapply(test, `[`, -2)
would work just fine.
solved How can I remove some elements from a list?