|
|
A140695
|
|
A number n is included if the number of positive divisors of n is neither a divisor of n nor is coprime to n.
|
|
2
|
|
|
6, 10, 14, 20, 22, 26, 28, 30, 32, 34, 38, 42, 44, 45, 46, 48, 50, 52, 54, 58, 62, 63, 66, 68, 70, 74, 75, 76, 78, 82, 86, 90, 92, 94, 98, 99, 102, 106, 110, 112, 114, 116, 117, 118, 120, 122, 124, 126, 130, 134, 138, 140, 142, 144, 146, 147, 148, 150, 153, 154, 158
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
36 has 9 divisors. 9 divides 36. So 36 is not in the sequence. 23 has 2 divisors. 2 is coprime to 23. So 23 is not in the sequence. On the other hand, 42 has 8 divisors. 8 does not divide 42. And 8 is not coprime to 42. So 42 is in the sequence.
|
|
MAPLE
|
filter:= proc(n) local t, g; t:= numtheory:-tau(n);
g:= igcd(t, n);
g > 1 and g < t
end proc:
|
|
MATHEMATICA
|
Select[Range[200], 1 < Mod[ #, Length[Divisors[ # ]]] && GCD[ #, Length[Divisors[ # ]]] > 1 &] (* Stefan Steinerberger, May 30 2008 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|