RosettaCodeData/Task/Van-der-Corput-sequence/Mathematica/van-der-corput-sequence.math
2023-07-01 13:44:08 -04:00

7 lines
171 B
Text

VanDerCorput[n_,base_:2]:=Table[
FromDigits[{Reverse[IntegerDigits[k,base]],0},base],
{k,n}]
VanDerCorput[10,2]
VanDerCorput[10,3]
VanDerCorput[10,4]
VanDerCorput[10,5]