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,1

Links

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

Mathematica

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

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A372397 A290744 A120151 * A030742 A048583 A169622

Adjacent sequences: A022934 A022935 A022936 * A022938 A022939 A022940

Keyword

nonn

Author

Clark Kimberling

Extensions

Missing 1192 from Kevin Ryde, Feb 19 2012

Status

approved