OFFSET
1,2
MATHEMATICA
(* First run one of the programs for A002858 to populate the ulams list *) A287612 = ulams; curr = 1; While[curr < Length[ulams] + 1, A287612[[curr]] = ulams[[curr]] * Boole[MemberQ[ulams, 4ulams[[curr]]]]; curr++]; DeleteCases[A287612, 0] (* Alonso del Arte, May 28 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Enrique Navarrete, May 27 2017
STATUS
approved