Avoid Scientific notation in cut function in R

Question

How to avoid scientific notation present in the Intervals created by the cut function.

a<-seq(10000,50000, by=500 )
cut(a, breaks = seq(0,max(a)+300, by = 300))

I have tried the below but it doesn't help.

options("scipen"=100, "digits"=4)

Answer 1

As suggested by Pascal,

Try with adding the argument dig.lab = 5 to cut function.