OFFSET
1,2
MATHEMATICA
* support function a240542[] is defined in A240542 *)
a[n_] := Union[Map[a240542, Range[n]]
a[175] (* data *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hartmut F. W. Hoft, Feb 06 2017
STATUS
approved