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

4, 5, 7, 10, 16, 24, 33, 44, 56, 69, 83, 98, 115, 133, 152, 172, 193, 215, 238, 263, 289, 316, 344, 373, 403, 434, 466, 500, 535, 571, 608, 646, 685, 725, 766, 808, 851, 896, 942, 989, 1037, 1086, 1136, 1187, 1239, 1292, 1346, 1401, 1458, 1516

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]]] &, {4},
Range[50]] (* Ivan Neretin, Apr 04 2016 *)

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A248858 A145018 A018910 * A057708 A032686 A074300

Adjacent sequences: A022933 A022934 A022935 * A022937 A022938 A022939

Keyword

nonn

Author

Clark Kimberling

Status

approved