OFFSET
1,2
COMMENTS
Except for a(2), a(4), a(6) and a(8), the same as A051885 (n>0).
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 1..1000
FORMULA
a(n+1) = A069532(n) + 1.
MATHEMATICA
e = 5; Join[Table[l = 1; While[True, a = 2*l - 1; If[Total[IntegerDigits[a]] == n, Break[]]; l++]; a, {n, 8}], Flatten[Table[i*10^j - 1, {j, e}, {i, 9}]]]
With[{ds=Table[{n, Total[IntegerDigits[n]]}, {n, 1, 600001, 2}]}, Table[ SelectFirst[ ds, #[[2]]==k&], {k, 50}]][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 30 2018 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Arkadiusz Wesolowski, Feb 02 2012
STATUS
approved