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

Links

Table of n, a(n) for n=1..71.

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 *)

Crossrefs

Cf. A108407, A108409.

Sequence in context: A101513 A153276 A298866 * A173905 A171581 A063450

Adjacent sequences: A108405 A108406 A108407 * A108409 A108410 A108411

Keyword

nonn

Author

Ralf Stephan, Jun 03 2005

Status

approved