A274172 Nonsquare composites with all prime factors larger than 5.
77, 91, 119, 133, 143, 161, 187, 203, 209, 217, 221, 247, 253, 259, 287, 299, 301, 319, 323, 329, 341, 343, 371, 377, 391, 403, 407, 413, 427, 437, 451, 469, 473, 481, 493, 497, 511, 517, 527, 533, 539, 551, 553, 559, 581, 583, 589
Offset: 1
Keywords
Examples
377 = 13*29 is a term.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Maple
filter:= n -> igcd(n,30)=1 and not issqr(n) and not isprime(n): select(filter, [seq(i,i=3..1000,2)]); # Robert Israel, May 30 2021
-
PARI
{ for(n=1,600, if(!(isprime(n) || n%2==0 || n%3==0 || n%5==0 || issquare(n)), print1(n", ")))}
-
PARI
is(n) = my(f=factor(n)); if(!issquare(n),f[1,1]>5 && matsize(f)[1]>1,0) \\ David A. Corneth, Jun 12 2016
Comments