login
A215142
Numbers n such that the difference between the greatest prime divisor of n and the sum of the other distinct prime divisors equals 1.
3
6, 12, 18, 24, 36, 48, 54, 72, 96, 108, 144, 162, 192, 216, 231, 288, 324, 330, 384, 432, 455, 486, 546, 576, 648, 660, 663, 693, 768, 864, 935, 972, 990, 1092, 1122, 1152, 1235, 1296, 1311, 1320, 1458, 1463, 1482, 1536, 1617, 1638, 1650, 1728, 1944, 1955
OFFSET
1,1
COMMENTS
A033845 is included in this sequence.
LINKS
EXAMPLE
1235 is in the sequence because 1235 = 5*13*19 and 19 - (5+13) = 1.
MAPLE
with(numtheory):for n from 2 to 2000 do:x:=factorset(n):m:=nops(x):s:=0: s:=sum( '
x[i] ', 'i'=1..m):q:=s-x[m]:if x[m]-q =1 then printf(`%d, `, n):else fi:od:
MATHEMATICA
gpdQ[n_]:=Module[{f=Transpose[FactorInteger[n]][[1]]}, Max[f]-Total[ Most[ f]] == 1]; Select[Range[2, 2000], gpdQ] (* Harvey P. Dale, Aug 28 2013 *)
CROSSREFS
Cf. A033845.
Sequence in context: A353530 A244193 A329878 * A033845 A187778 A344471
KEYWORD
nonn
AUTHOR
Michel Lagneau, Aug 04 2012
STATUS
approved