|
| |
|
|
A089352
|
|
Numbers n such that n is divisible by the sum of its distinct prime factors.
|
|
4
| |
|
|
2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 30, 31, 32, 37, 41, 43, 47, 49, 53, 59, 60, 61, 64, 67, 70, 71, 73, 79, 81, 83, 84, 89, 90, 97, 101, 103, 105, 107, 109, 113, 120, 121, 125, 127, 128, 131, 137, 139, 140, 149, 150, 151, 157, 163, 167, 168, 169, 173
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| E.g. 84=2.2.3.7 is divisible by 2+3+7
|
|
|
MATHEMATICA
| primeDivisors[n_] := Select[Divisors[n], PrimeQ]; primeSumDivQ[n_] := 0 == Mod[n, Apply[Plus, primeDivisors[n]]]; Select[Range[2, 300], primeSumDivQ]
|
|
|
CROSSREFS
| Different from A071139.
Sequence in context: A119314 A014567 A030230 * A086486 A071139 A046686
Adjacent sequences: A089349 A089350 A089351 * A089353 A089354 A089355
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Ramin Naimi (rnaimi(AT)oxy.edu), Dec 26 2003
|
| |
|
|
