OFFSET
1,1
LINKS
S. J. Benkoski and P. Erdős, On weird and pseudoperfect numbers, Math. Comp., 28 (1974), pp. 617-623. Alternate link; 1975 corrigendum
MAPLE
isA001358 := proc(n) if numtheory[bigomega](n) = 2 then true; else false; fi ; end: setsum := proc(S) add(i, i=S) ; end: a := [4] : while true do for anxt from op(-1, a)+1 do if isA001358(anxt) then aset := combinat[powerset](convert(a, set) union {anxt} ); sset := {} ; for s in aset do sset := sset union { setsum(s) } ; od: if nops(sset) = nops(aset) then a := [op(a), anxt] ; print(a) ; break ; fi ; fi ; od: od: # R. J. Mathar
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Jonathan Vos Post, Apr 09 2008
EXTENSIONS
More terms from R. J. Mathar
a(12)-a(29) from Donovan Johnson, Nov 11 2008
STATUS
approved