|
|
A295102
|
|
Squarefree numbers n that are sqrt(n)-smooth: if prime p|n then p^2 <= n.
|
|
2
|
|
|
1, 30, 70, 105, 154, 165, 182, 195, 210, 231, 273, 286, 330, 357, 374, 385, 390, 399, 418, 429, 442, 455, 462, 494, 510, 546, 561, 570, 595, 598, 627, 646, 663, 665, 690, 714, 715, 741, 759, 770, 782, 798, 805, 858, 870, 874, 897, 910, 935, 957, 966, 969
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
If n is in the sequence and m < n is squarefree and coprime to n, then m*n is in the sequence. - Robert Israel, Aug 12 2019
|
|
LINKS
|
|
|
MAPLE
|
filter:= proc(n) local t;
andmap(t -> t[2]=1 and t[1]^2<=n, ifactors(n)[2])
end proc:
|
|
MATHEMATICA
|
selQ[n_] := SquareFreeQ[n] && AllTrue[FactorInteger[n][[All, 1]], #^2<=n&];
|
|
PROG
|
(PARI) isok(n) = (n==1) || (issquarefree(n) && (vecmax(factor(n)[, 1])^2 < n)); \\ Michel Marcus, Aug 12 2019
|
|
CROSSREFS
|
Besides initial 1, subsequence of A164596.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|