A004228 a(n) = 10000*log_10(n) rounded down.
0, 3010, 4771, 6020, 6989, 7781, 8450, 9030, 9542, 10000, 10413, 10791, 11139, 11461, 11760, 12041, 12304, 12552, 12787, 13010, 13222, 13424, 13617, 13802, 13979, 14149, 14313, 14471, 14623
Offset: 1
Keywords
Programs
-
Mathematica
Floor[10^4 Log[10,Range[30]]] (* Harvey P. Dale, Feb 07 2015 *)