A282131 Records in A240542.

1, 2, 3, 5, 6, 7, 9, 11, 12, 13, 15, 17, 18, 20, 22, 23, 25, 26, 28, 30, 32, 34, 35, 36, 38, 40, 42, 44, 45, 47, 49, 52, 54, 56, 57, 59, 61, 63, 65, 67, 68, 70, 71, 73, 75, 77, 79, 81, 85, 86, 88, 89, 91, 93, 95, 97, 99, 102, 104, 106, 108, 110, 112, 113, 115, 117, 118, 120

Offset: 1

Author

Hartmut F. W. Hoft, Feb 06 2017

Keywords

• nonn

Crossrefs

Cf. A240542 with duplicates removed.

Cf. A235791, A237593.

Programs

Mathematica

(* support function a240542[] is defined in A240542 *)
a[n_] := Union[Map[a240542,Range[n]]]
a[175] (* data *)