A function gets two very similar arguments, how to make the code shorter?

Questions
1

I have the following two expressions that I pass to the Union function:

Position[Divisible[Range[10], 3], True]

and

Position[Divisible[Range[10], 5], True]

You can see that they are very similar (3 and 5 is the only difference).

My question is: can I make the following command shorter

Union[
 Position[Divisible[Range[10], 3], True]
 ,
 Position[Divisible[Range[10], 5], True]
 ]

?

2

Ehud,

I think this gives basically the same result:

Union@Flatten[Table[n, {n, #, 10, #}] & /@ {3, 5}]
(*  Out:   {3,5,6,9,10}  *)
3

Thanks a lot!

4

Another way

If[Mod[#, 3] == 0 || Mod[#, 5] == 0, #, Nothing] & /@ Range@10
5

Yet another way:

Position[Map[Mod[#, 3] Mod[#, 5] &, Range[10]], 0]
6

MapIndexed[{v, i} [Function]
If[Divisible[v, 3] || Divisible[v, 5], i, Nothing], Range@10]