Seq(from=1920, length(coal))
Coal = scan()

569 416 422 565 484 520 573 518 501 505 468 382 310 334 359 372 439 446 349 395 461 511 583 590 620 578 534 631 600 438 516 534 467 457 392 467 500 493 410 412 416 403 422 459 467 512 534 552 545