Mathematica — сгенерировать список простых чисел до предела

Какая простейшая функция генерирует список простых чисел до аргумента? Нетрудно придумать такую ​​функцию, например:

foo[n_] := Block[{A = {}, p = 2},
           While[p < n, A = Append[A, p]; p = NextPrime[p]];
           A]

Тем не менее, это кажется слишком грязным. Я хотел бы сделать что-то вроде

foo[n_] := Table[Prime[i], {i,2,???}]

Где ??? является индексом NextPrime[n,-1]. Это возможно?