OFFSET
1,1
COMMENTS
A033845 is included in this sequence.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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
KEYWORD
nonn
AUTHOR
Michel Lagneau, Aug 04 2012
STATUS
approved