|
| |
|
|
A111905
|
|
A number n is included if more primes, among primes <= the largest prime dividing n, divide n than do not.
|
|
2
| |
|
|
2, 4, 6, 8, 10, 12, 15, 16, 18, 20, 24, 30, 32, 36, 40, 42, 45, 48, 50, 54, 60, 64, 66, 70, 72, 75, 80, 84, 90, 96, 100, 105, 108, 110, 120, 126, 128, 132, 135, 140, 144, 150, 154, 160, 162, 165, 168, 180, 192, 198, 200, 210, 216, 220, 225, 231, 240, 250, 252, 256, 264
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 20 is included because 5 is the largest prime dividing 20. And of the primes <= 5 (2,3,5), 2 and 5 (2 primes) divide 20, 3 (only 1 prime) does not divide 20.
|
|
|
PROG
| (PARI) {m=270; v=vector(m); for(n=1, m, f=factor(n)[, 1]~; c=0; pc=0; forprime(p=2, vecmax(f), j=1; s=length(f); while(j<=s&&p!=f[j], j++); if(j<=s, c++); pc++); v[n]=sign(pc-2*c)); for(n=1, m, if(v[n]<0, print1(n, ", ")))} (Klaus Brockhaus)
|
|
|
CROSSREFS
| Cf. A111906, A111907.
Sequence in context: A194372 A058218 A140955 * A187412 A187473 A064997
Adjacent sequences: A111902 A111903 A111904 * A111906 A111907 A111908
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Aug 19 2005
|
|
|
EXTENSIONS
| More terms from Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Aug 21 2005
|
| |
|
|
