A022937 a(n) = a(n-1) + c(n-1) for n >= 2, a( ) increasing, given a(1)=5; where c( ) is complement of a( ).

5, 6, 8, 11, 15, 22, 31, 41, 53, 66, 80, 96, 113, 131, 150, 170, 191, 214, 238, 263, 289, 316, 344, 373, 403, 435, 468, 502, 537, 573, 610, 648, 687, 727, 769, 812, 856, 901, 947, 994, 1042, 1091, 1141, 1192, 1244, 1298, 1353, 1409, 1466, 1524, 1583

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Links

• Ivan Neretin, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A005228 and references therein.

Programs

Mathematica

Fold[Append[#1, #1[[#2]] + Complement[Range@Max@#1, #1][[#2]]] &, {5}, Range[50]] (* Ivan Neretin, Apr 04 2016 *)

Extensions

Missing 1192 from Kevin Ryde, Feb 19 2012