Writing to a file through a loop

I’m trying to generate a pdf called 1.pdf, 2.pdf, 3.pdf etc and it isn’t working. My code is:

x <- 0
for(i in 1:1000){
x <- x + 1
pdf(as.character(x),”.pdf”) #writes out to pdf <——- is this the issue?
for(i in 1:1000000){
hist(rnorm(1)) # graphs histogram, writen to the file
}

dev.off()
}

Also, I triedto just do
a<- 1
a
and it wouldnt add a ot the file. help please