login
A132783
Numbers n with the property that the difference between the two largest proper divisors of n equals the sum of proper divisors of the digit sum of n.
0
57, 5767, 6497, 7387, 29177, 30967, 35657, 37627, 52891, 53297, 61937, 70747, 75067, 96091, 114857, 118961, 126727, 145097, 190087, 194417, 215287, 221777, 244961, 307961, 335177, 348091, 370817, 408257, 414727, 423737, 462391, 585161
OFFSET
1,1
COMMENTS
All but two members of the sequence below 20000000 are the products of two primes separated by 6 or 16 and have digit sums of 25 or 26, which have proper divisor sums of 6 (=1+5) and 16(=1+2+13) respectively. The exceptions are the 1st term (57), which has a digit sum of 12 and the 67th (18999857), which has a digit sum of 56.
EXAMPLE
The divisors of 57 are 1, 3 and 19, so the difference of the two largest is 16.
The divisors of its digit sum (12=5+7) are 1,2,3,4 and 6, which also sum to 16.
MATHEMATICA
ok[n_] := Block[{d = Divisors@n, s = Total@ IntegerDigits@ n}, Length[d] > 2 && d[[-2]] - d[[-3]] == DivisorSigma[1, s] - s]; Select[Range[10^5], ok] (* Giovanni Resta, Jun 09 2015 *)
PROG
A program to test an individual integer, written in APL, is available if required.
CROSSREFS
Sequence in context: A281567 A012165 A209512 * A221445 A218353 A127455
KEYWORD
nonn,base
AUTHOR
Paul H. Smith (decisionbydesign(AT)aol.com), Nov 17 2007
STATUS
approved