|
%I #12 Aug 27 2022 20:04:59
%S 25,30,35,40,45,50,55,65,75,85,95,115,125,145,155,185,205,215,235,265,
%T 295,305,335,355,365,395,415,445,485,505,515,535,545,565,635,655,685,
%U 695,745,755,785,815,835,865,895,905,955,965,985,995,1055,1115,1135,1145,1165,1195
%N Numbers k whose largest divisor <= sqrt(k) is 5.
%C See A161344 for more information. - _Omar E. Pol_, Jul 05 2009
%F Numbers k such that A033676(k)=5. - _Omar E. Pol_, Jul 05 2009
%t Select[Range[1, 1000], Function[m, Max[Select[Divisors[m], # <= Sqrt[m] &]] == 4]] (* _Ashton Baker_, Nov 03 2013 *)
%o (PARI) is(n)=divisors(n)[(numdiv(n)+1)\2]==5 \\ - _M. F. Hasler_, Nov 03 2013
%Y Cf. A033676, A008578, A161344, A161345, A161424, A161835, A162526, A162527, A162528, A162529, A162530, A162531, A162532.
%K easy,nonn
%O 1,1
%A _Omar E. Pol_, Jun 20 2009
%E Definition and more terms added by _R. J. Mathar_, Jun 28 2009
|
