A108408 Unique values found in A108407. Complement of A108409.

1, 2, 3, 4, 6, 8, 9, 10, 12, 14, 15, 16, 17, 18, 22, 23, 24, 25, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 49, 52, 53, 54, 55, 56, 57, 58, 59, 60, 62, 63, 64, 66, 67, 69, 70, 71, 72, 73, 74, 77, 78, 79, 82, 83, 84, 85, 86, 87, 88, 89, 90

Offset: 1

Author

Ralf Stephan, Jun 03 2005

Keywords

• nonn

Crossrefs

Cf. A108407, A108409.

Programs

Mathematica

terms = 71;
nmax = 3 terms;
A062854 = Table[u = If[n == 1, {}, Union[u, n Range[n]]]; Length[u], {n, 1, nmax + 1}] // Differences // Prepend[#, 1]&;
a108407[n_] := n + 1 - A062854[[n+1]];
Array[a108407, nmax] // Union // Rest // Take[#, terms]& (* Jean-François Alcover, Oct 02 2020 *)