id:A089352 - OEIS Search Results

Search: id:A089352

Displaying 1-1 of 1 results found.

page 1

Numbers n such that n is divisible by the sum of its distinct prime factors.

+0
5

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; listen)

	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.` `Adjacent sequences: A089349 A089350 A089351 this_sequence A089353 A089354 A089355` `Sequence in context: A119314 A014567 A030230 this_sequence A086486 A071139 A046686`
	KEYWORD	`easy,nonn`
	AUTHOR	`Ramin Naimi (rnaimi(AT)oxy.edu), Dec 26 2003`

page 1

Search completed in 0.002 seconds

Last modified October 6 16:13 EDT 2008. Contains 144667 sequences.

AT&T Labs Research