Вот код с нужными значениями: ListLogPlot[{55060, 100391, 8079, 24450, 3006, 671, 1999, 341, 1532, 263, 983, 124, 959, 158, 9902, 82}]. Кстати, а можно ли по оси x задать не цифры, а сокращения: La, Ce, Pr и т.д.?