login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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

Robert Israel, Table of n, a(n) for n = 1..10000

MAPLE

filter:= proc(n) local t;

  andmap(t -> t[2]=1 and t[1]^2<=n, ifactors(n)[2])

end proc:

select(filter, [$1..1000]); # Robert Israel, Aug 12 2019

MATHEMATICA

selQ[n_] := SquareFreeQ[n] && AllTrue[FactorInteger[n][[All, 1]], #^2<=n&];

Select[Range[1000], selQ] (* Jean-Fran├žois Alcover, Jul 30 2020 *)

PROG

(PARI) isok(n) = (n==1) || (issquarefree(n) && (vecmax(factor(n)[, 1])^2 < n)); \\ Michel Marcus, Aug 12 2019

CROSSREFS

Squarefree terms of A048098, and also of A063539.

Besides initial 1, subsequence of A164596.

Together with A001248, forms indices of records in A295101.

Cf. A005117.

Sequence in context: A182996 A325378 A164596 * A131647 A301900 A071141

Adjacent sequences:  A295099 A295100 A295101 * A295103 A295104 A295105

KEYWORD

nonn

AUTHOR

Max Alekseyev, Nov 14 2017

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 27 18:27 EDT 2021. Contains 346308 sequences. (Running on oeis4.)