OFFSET
1,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..500
MATHEMATICA
a = {1}; c = 0; Do[c = 10 c + Mod[n, 9] + 1; If[c > a[[-1]], AppendTo[a, c]; c = 0], {n, 170}]; a (* Ivan Neretin, Aug 14 2015 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Apr 01 2003
EXTENSIONS
Corrected and extended by Sean A. Irvine, Apr 18 2010
STATUS
approved