login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A162527 Numbers k whose largest divisor <= sqrt(k) equals 7. 19
49, 56, 63, 70, 77, 84, 91, 98, 105, 119, 133, 147, 161, 175, 203, 217, 245, 259, 287, 301, 329, 343, 371, 413, 427, 469, 497, 511, 553, 581, 623, 679, 707, 721, 749, 763, 791, 889, 917, 959, 973, 1043, 1057, 1099, 1141, 1169, 1211, 1253, 1267, 1337, 1351 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
See A161344 for more information.
LINKS
FORMULA
Numbers k such that A033676(k)=7.
MAPLE
A033676 := proc(n) local dvs; dvs := sort(convert(numtheory[divisors](n), list)) ; op(floor((nops(dvs)+1)/2) , dvs) ; end: for n from 1 to 2000 do if A033676(n) = 7 then printf("%d, ", n) ; fi; od: # R. J. Mathar, Jul 13 2009
MATHEMATICA
ld = 7;
selQ[n_] := AllTrue[Divisors[n], # <= ld || #^2 > n&];
Select[Range[ld, 200] ld, selQ] (* Jean-François Alcover, Apr 14 2020 *)
ld7Q[n_]:=Select[Divisors[n], #<=Sqrt[n]&][[-1]]==7; Select[Range[1400], ld7Q] (* Harvey P. Dale, Jan 13 2023 *)
CROSSREFS
Sequence in context: A305358 A140388 A044863 * A028915 A345114 A090063
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Jul 05 2009
EXTENSIONS
More terms from R. J. Mathar, Jul 13 2009
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 26 13:41 EST 2024. Contains 370352 sequences. (Running on oeis4.)