OFFSET
1,2
COMMENTS
A slider in a user interface is often hard to represent when the range of numbers is large. This sequence produces a list of numbers that make it possible to select a meaningful value at all orders of magnitude.
FORMULA
n <= 9: n,
n > 9: (((n+8) mod 18)/2 + 1) * 10^(floor((n+8)/18)).
MATHEMATICA
Table[If[n <= 9, n, (Mod[n + 8, 18]/2 + 1)*10^Floor[(n + 8)/18]], {n, 50}] (* T. D. Noe, Nov 27 2013 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Lasse Klein, Nov 14 2013
STATUS
approved